Würde das einfach so machen:
Selection.FormulaR1C1 = "=MAX(R1C1:R[-1]C)+1"
R1C1 ist die Zelle A1 ... bzw. bei dir die Zelle wo es mit den Nummern losgeht.
Angenommen deine Tabelle schaut so aus:
|
A |
B |
C |
1 |
ID |
Vorname |
Nachname |
2 |
1 |
Sabine |
Maier |
3 |
3 |
Olaf |
Schütze |
|
|
|
|
Jetzt wählst du Zelle A4 aus und führst das Makro oben aus.
Kannst es natürlich auch in deinem Code referenzieren:
Range("A4").FormulaR1C1 = "=MAX(R1C1:R[-1]C)+1"
'Cells(4,"A").FormulaR1C1 = ...
'Cells(4, 1).FormulaR1C1 = ...
Es wird dann in A4 die Zahl 4 stehen. Warum... das kannst du dir anhand der Formel in der Zelle anschauen/überlegen.
Grüße
|