Marko soll Zeilen löschen wenn Inhalt "Falsch"
05.12.2006 17:23:50
Michael
könnte mir jemand mein Makro so umschreiben, dass leere Zeilen, sowie Zeilen in denen irgendwo "Falsch" steht, gelöscht werden ?
Sub LeerZeilenKiller()
Dim i As Long, laR As Long
Application.ScreenUpdating = False
On Error Resume Next
laR = Cells.Find("*", Range("A1"), , , xlByRows, xlPrevious).Row
On Error GoTo 0
If laR = 0 Then Exit Sub
For i = laR To 1 Step -1
If WorksheetFunction.CountA(Rows(i)) = 0 Then
Cells(i, 1).EntireRow.Delete
End If
Next i
Application.ScreenUpdating = True
End Sub