Nummerierung
Benedikt
Vielen Dank für eure Hilfe bei nachfolgendem Code:
(Rechts der Aktiven Zelle wird eine fortlaufende Nummer eingefügt. Läuft perfekt)
Code1
ActiveCell.Offset(0, -1) = Application.WorksheetFunction.Max(Range(Cells(1, 2), Cells(ActiveCell.Row, 2))) + 1
Mit nachfolgendem Code vergebe ich noch Unterpositionen, welche Bezug auf die letze Zahl gibt
Beispiel 1.1 etc.
ActiveCell.Offset(0, -1) = Application.WorksheetFunction.Max(Range(Cells(1, 2), Cells(ActiveCell.Row, 2))) + 0.1
WennCode 1 wieder zum Einsatz kommt, erhalte ich aber nicht wie gewünscht eine 2, sondern 2.1
Kann mann im Code 1 etwas ändern, damit keine Nachkommastelle erscheint?
Vielen Dank im voraus