ich habe da mal ne frage...
wie kann ich aus einer excel tabelle automatisch alle leeren zeilen löschen oder ausblenden lassen?
das ganze markieren ist nämlich bei einer großen tabelle sehr umständlich!
schonmal danke im voraus
gruß marco
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