Nummerierung
10.06.2007 19:25:07
Cordula
vor längerer Zeit haben mir Matthias G und Beni folgendes Makro erstellt, um Spalte A automatisch zu nummerieren. Das funktioniert auch einwandfrei. Nun soll aber doch nicht nach dem MAX-Wert gesucht werden, um diesen zu verwenden sondern das Makro soll sich die niedrigste fehlende Zahl suchen und diese benutzen. Also, durch das Löschen von Datensätzen sind die vorhandenen z.B. mit 1 3 5 6 7 9 10 usw. nummeriert. Die nächst niedrigste wäre also die fehlende 2, die beim Einfügen eines neuen DS verwendet werden soll. Ist das machbar? Wäre toll, wenn Ihr mir helfen könntet. Danke
LG
Cordula
Private Sub Worksheet_Change(ByVal Target As Range)
'Werte in Spalte A nach unten ausfüllen soweit wie Einträge in Spalte C
Dim lz As Integer
If Not Intersect(Target, Range("C4:C" & Rows.Count)) Is Nothing Then
If Cells(Target.Row, 1) = "" Then
lz = WorksheetFunction.Max(Cells(Rows.Count, 3).End(xlUp).Row, 4) ' letzte Zeile/min.4
Cells(Target.Row, 1) = WorksheetFunction.Max(Range(Cells(4, 1), Cells(lz, 1))) + 1
End If
End If
End Sub
Anzeige