Makro erweitern
02.09.2005 10:59:14
Achim
Mein Makro sucht nach der ersten leeren Zelle. Macht es auch!!
Wer kann erweitern?
Wenn leere Zelle gefunden ab da dann lösche alle inhalte rechts bis Spalte ZZ
und alles darunter.
Sub ersteleerezellesuchen()
Sheets("Test").Select
Dim S As String
Dim i As Long
With ActiveSheet
i = 0
Do
i = i + 1
S = Cells(i, "A")
If Len(S) = 0 Then
Cells(i, "A").Activate
Exit Do
End If
Loop While i < 65535
End With
End Sub
Danke Achim h.