Datensatznummern mittels VBA ergänzen
23.04.2008 14:08:00
Josef
Mit folgendem Makro wird in der Spalte A immer um eine Zahl hochgezählt
Sub Test()
Cells(Rows.Count, "A").End(xlUp).Offset(1).Value = Application.Max([A:A]) + 1
End Sub
Wenn ich jedoch z.B. 6 Datensätze ab der Spalte C eingegeben habe und ich möchte jetzt mit einem Klick die Datensatznummern ergänzen, wie würde hier bitte eine VBA Lösung lauten?
Danke