Office: Leichtigkeit für VBA Kenner?

Moin,

ich habe mich die letzten Std. durch verschiedene VBA Posts gewühlt, verstehe ads ganze Thema aber von Grund auf nicht.

Ich möchte gerne eine fortlaufende Gutschriftnummer generieren. Denn Nummernkreis gebe ich bereits vor, denn nach Nummenrvergabe sollen die Daten in dieser Gutschrift dokumentiert werden. Also Blatt "Gutschrift" bekommt mittels Knopfdruck die Nummer 1 aus dem Blatt "Nummernkreis", dann werden die Objektdaten in das Blatt "Nummernkreis" geschrieben. Erneuter Knopfdruck vergibt die NUmemr zwei und Daten werden ebenfalls wieder übertragen. Das Drucken der Gutschrift erfolgt manuell also ohne Makro Funktion.

Scheint nicht schwierig zu sein - für mich schon.

Danek für Hilfe. Musterdatei anbei.

Gruß Torben

 

Hallo Torben,

Du hast geschrieben:

Also ist das schon vorhanden. In einer XLSX Datei ist kein Makro. Wo ist das Problem?

Gruß Hajo

 

Hallo Hajo,

das Problem ist: Ich kann keine Makros programmieren. Meine Beschreibung sollte erklären, was das Makro beiwrken soll. :)

Gruß Torben

 

Hallo Torben,

Man sollte dann schreiben es sollte folgebndes passieren und Nicht bei Drücken wird die Nummer eingetragen.
weise dem Butten folgenden Code zu.
Sub Nummer()
Dim Loletzte As Long
With Worksheets("Nummernkreis")
Loletzte = IIf(IsEmpty(.Cells(.Rows.Count, 2)), .Cells(Rows.Count, 2).End(xlUp).Row, .Rows.Count)
Range("D7") = .Cells(Loletzte, 2)
End With
End Sub


Gruß Hajo

 

Ok, das habe ich verstanden und umgestezt. Wie kriege ich es gelöst, dass nicht immer die letzte Nummer aus der Spalte A im Blatt "Nummernkreis" genommen wird, sondern die Nummer bei welcher keine Daten in den Spalten B,C,D,E,F stehen. Das setzt nach meinem Verständnis voraus, dass die Daten in den Spalten B-F nach erfolgreicher Nummernvergabe ausgefüllt werden und dann auch festgehalten werden. Ich habe das mal exemplarisch in das Blatt "Nummernkreis" dargestellt und eine neue Dateiversion angehängt.

DANKE für Hilfe.

Gruß Torben

 

Hallo Torben.

da mußt Du den Fragen von dem Du Deinen Code hast. Bei mir wird die Letzte Nummer von Spalte B eingetragen.
.Cells(Loletzte+1, 1) erster Eintrag aus Spalte A nach dem letzzten Eintrag in Spalte B


Gruß Hajo.