Option Explicit
Sub LeereZeilenLoeschen()
Dim anzZeilen As Long
Dim anzSpalten As Integer
Dim zaehler As Long
Dim z As Long
Dim s As Integer
Dim b As Boolean
Dim anz As Long
Application.ScreenUpdating = False
ActiveSheet.Range("A1").Select
anzZeilen = ActiveSheet.UsedRange.Rows.Count
anzSpalten = ActiveSheet.UsedRange.Columns.Count
z = 1
For zaehler = 1 To anzZeilen
b = False
For s = 1 To anzSpalten
If IsEmpty(Cells(z, s)) Then b = True _
Else: b = False: Exit For
Next s
If b = True Then
Cells(z, s).EntireRow.Delete
anz = anz + 1
Else
z = z + 1
End If
Next zaehler
ActiveSheet.Range("A1").Select
Application.ScreenUpdating = True
MsgBox "Es wurden " & anz & " leere Zeilen gelöscht!", _
vbOKOnly, Title:="Leere Zeilen löschen"
End Sub
kann mir jemand weiterhelfen
Danke Geri