irgendwie komme ich nicht weiter:
ich habe diesen Code:
Range("A3:A2500").ClearContents
Range("A3").Value = 1
For Each CA In Range("A3:A2500")
If CA.Offset(1, 0) = "" Then
CA.Offset(1, 0) = CA + 1
End If
Next
Ich möchte nun, dass nicht bis A2500 "cleart" und neu schreibt, sondern, dass bis letze geschriebene Zelle "cleart" und darunter der Wert der lezte Zelle +1 schreibt.
ich habe versucht, leider ohne Erfolg.
Wie soll der Code geändert werden?
Danke
Bongiu