Zeile löschen - Nummerierung erhalten
DieterL
Ich habe ein Datenblatt bei dem Spalte A nummeriert ist, das heißt die Überschrift ist Lfd.Nr. und dann folgen die Nummern von 1 beginnend bis ?. Die einzelnen Zeilen sind Datensätze die über eine UserForm eingegeben werden. Die Nummer wird mit folgendem Makroteil eingefügt:
With Sheets("Extras").Range("A65536").End(xlUp)
If .Offset(0, 0).Value = "Lfd.Nr." Then
.Offset(1, 0).Value = "1"
Else: .Offset(1, 0).Value = .Offset(0, 0).Value + 1
End If
Ich habe nun eine zweite UserForm, mit der ich die Datensätze nach Auswahl der Nummer in einer ComboBox wieder anzeigen und editieren kann. Mit dem folgenden Code kann ich dann auch über einen CommandButton den ganzen Datensatz (Zeile) löschen:
Dim varResult As Variant
With Sheets("Extras")
varResult = Application.Match(ComboBox1.Value, .Range("Nummer1"), 0)
If IsNumeric(varResult) Then .Range("Nummer1").Cells(varResult, 1).EntireRow.Delete
End With
Damit lösche ich auch die Zeilennummer und die Reihenfolge stimmt nicht mehr. Weiß jemand eine Möglichkeit wie die Reihenfolge per Code wiederhergestellt werden kann? Die Spalte A mit der Nummerierung ist übrigens ein dynamisch wachsender benannter Bereich "Nummer1".
Danke für die Mühe, DieterL