Makro laufende Nummerierung
27.09.2004 15:18:00
Claudi
erstmal vielen Dank für die schnelle Hilfe, die hier im Forum geboten wird (besonders Ulf :-))
wisst ihr wie man das Makro anpasst, dass es ab Zelle A7 anfängt zu zählen nicht ab A2?
Sub Nummerierung()
Dim n
Cells(2, 1).Value = 1
For n = 3 To Cells(Rows.Count, 2).End(xlUp).Row
Cells(n, 1).Value = Cells(n - 1, 1).Value + 1
Next n
End Sub
Ich habe bei Cells(7,1) angegeben, dann öffnet sich ein Hinweis "Laufzeitfehler"