Folgendes Problemchen:
Wenn ich in der Spalte "Namen" einen Wert reinschreibe, sollte in der Spalte "Nummern" eine fortlaufende Nummerierung erscheinen.
Leere Zellen sollten übersprungen werden und die Nummerierung weitergeführt werden. Und als Letztes: Beim Löschen von Namen sollte die Nummerierung natürlich wieder angepasst werden.
Ein möglicher Ansatz habe ich schon mal gefunden, aber irgendwie komme ich nicht zum Ergebniss.
Private Sub Worksheet_SelectionChange(ByVal Target As Range) x=2 y=2 Do While Range ("Namen").Cells(x,1) <>0 If Range("Name").Cells(x,1) <> 0 Then Range ("Nummer").Cells(x,1)=y If Range("Name").Cells(x,1) ="" Then Range ("Nummer").Cells(x,1)="" x=x+1 y=y+1 Loop End Sub
Vieleicht hätte Jemand eine Lösung, wie der VBA Code aussehen müsste ?
Besten Dank und freundliche Grüsse.
Domi