Hey ZUsammen,
habe nachfolgend diese Zeilen im Makro:
Dim aze
Set aze = ActiveCell
z = Range("a2").End(xlDown).Row
ActiveSheet.Range(Cells(z, 1), Cells(z, 1)).Select
Selection.Delete Shift:=xlUp
' aze.Select
If aze = "" Then
ActiveCell.Offset(0, 0).Select
Else
aze.Select
End If
wenn ich eine Zeile lösche funktioniert es, wenn ich allerdings die letzte Zeile gelöscht habe,
kommt Fehlermeldung und bleibt bei aze stehen Fehlermeldun:
Laufzeitfehler, Objecr erforderlich.
Nochmal: Wenn ich die vorletzte Zeile lösche geht alles einwandfrei,
gr Kurt P