Zeilen Automatisch nummerieren VBA
03.01.2023 15:01:55
Bernd_hat
ich habe in einer Datei Zeilen nummeriert.
Ab Zeile 3 in Spalte A wird von 1 an nummeriert.
Wenn jetzt z.B Zeile 5 gelöscht wird möchte ich das alles neu nummeriert wird ab Zeile 3
Ich habe einen Code im Internet gefunden. Dieser nummeriert aber ab Zeile 1 in Spalte A.
Wie muss man diesen ändern damit erst ab Zeile 3 nummeriert wird?
Danke für Eure Hilfe.
Gruß Bernd_
Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice 20160612
Dim I As Integer
I = 1
Application.EnableEvents = False
For I = 1 To 160
Range("A" & I).Value = I
Next
Range("A161").Value = ""
Application.EnableEvents = True
End Sub
Anzeige