Wer kann diese Makro erweitern?
(Das Makro sucht die erste leerzelle in "A:A")
Nun möchte ich das nachdem das Makro die erste leere Zelle in "A" gefunden hat die Zeile und die nächsten 1500 Zeilen darunter löscht.
Dim u As String
Dim p As Long
With ActiveSheet
p = 0
Do
p = p + 1
u = Cells(p, "A")
If Len(u) = 0 Then
Cells(p, "A").Activate
Exit Do
End If
Loop While p größer 65535
End With
Ich sag schon mal Danke
Gruß
Achim H.