Problem mit Makro
31.01.2007 10:19:11
Wolfgang
unten aufgeführtes Makro sucht den höchsten Wert in Spalte A und addiert 1 hinzu wenn eine Zeile eingefügt wird.
Das Makro funktioniert einwandfrei, aber nur solange wenn in dem Dokument kein Filter gesetzt ist.
Frage kann das Makro so umgeschrieben werden das es auch funktioniert wenn ein Filter gesetzt ist.
Vielen Dank im vorraus.
Private Sub Worksheet_Change(ByVal Target As Range)
'Spaltenwert in A, automatisch um eins erhöhen wenn eine Zeile eingefügt wird
lr = Cells(Rows.Count, 1).End(xlUp).Row
If lz >= lr Then Exit Sub
Dim r As Integer
r = ActiveCell.Row
lz = Cells(Rows.Count, 1).End(xlUp).Row
Set myRange = Range(Cells(1, 1), Cells(lz, 1))
Cells(r, 1) = Application.WorksheetFunction.Max(myRange) + 1
End Sub