Teilnummerierung Unterposition
Benedikt
Nachstehender Code fügt links neben der aktiven Zelle eine Nummerierung (1.1) ein.
ActiveCell.Offset(0, -1) = Application.WorksheetFunction.Max(Range(Cells(1, 2), Cells(ActiveCell.Row, 2))) + 0.1
Ich sollte jeweils bei der viertnächsten Zelle und bei der achtnächsten Zelle eine weitere Nummerierung haben, also 1.2 und 1.3.
Wie muss der Code angepasst werden?
Vielen Dank für eure Hilfe und eine schöne Woche