Zahlreihe automatisch ausfüllen und aktualisieren
20.02.2018 10:14:03
Thomas
ich habe ein kleines Problem und komme auch leider bei verschiedensten Suchvarianten nicht weiter.
Mein Wunsch ist es, dass Excel einfach nur automatisch eine Zahlenreihe fortsetzt und auch automatisch aktualisiert, wenn eine neue Zeile hinzugefügt wurde.
Starten soll das ganze bei mir in Zeile 11 und soll von da an einfach nur bei 1 anfangen und von da weiterzählen, wenn die Zeile befüllt wird.
Jetzt habe ich mir mit meinen bescheidenen VBA Kenntnissen bereits einen Code zusammengesucht, wodurch Excel automatisch die Zählung aktualisiert, wenn ich zwischendrin eine neue Zeile einfüge.
Das Problem ist, er fängt in Zeile 11 auch leider mit der Zahl 11 an zu zählen, und nicht mit der 1.
Hier mein aktueller Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim bereich As Range
Dim z As Long
z = UsedRange.Rows.Count
Set bereich = Range(Cells(11, 1), Cells(z, 1))
bereich.Formula = "=row()"
End Sub
Ich habe es leider durch herumprobieren nicht geschafft, dass er einfach bei 1 anfängt zu zählen.
Gibt es eine Möglichkeit das anzupassen?
Danke schon mal im voraus.
VG
Thomas
Anzeige