Problem mit Makro.....
01.02.2007 14:46:06
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
Das Beispiel von Mathias im Spotlight greift das Problem auf und könnte passen, aber ich weis nicht wie ich bei seinem Beispiel meinen Privat
Sub schreiben soll.
Hier das Beispiel von Mathias
lz = IIf(IsEmpty(Range("A" & Rows.Count)), Range("A" & Rows.Count).End(xlUp).Row, Rows.Count)
If lz lz = Range("A" & lz + 1 & ":A" & Rows.Count).SpecialCells(xlCellTypeVisible).Row
End Sub
Wäre toll wenn mir jemand zu Hand gehen könnte.
Gruß
Wolfgang