Ist es irgendwie möglich, dass ich alle leeren Zeilen in einem vorher markierten Bereich löschen kann?
Gruss Klaus
Sub Klaus()
Dim Bereich As String, lo As String, ru As String, _
zo As Long, zu As Long, i As Long, _
sl As Integer, sr As Integer
Application.ScreenUpdating = False
Bereich = Selection.Address(False, False)
lo = Left(Bereich, InStr(Bereich, ":") - 1) 'links oben
ru = Right(Bereich, Len(Bereich) - InStr(Bereich, ":")) 'rechts unten
zo = Range(lo).Row 'Zeile oben
zu = Range(ru).Row 'Zeile unten
sl = Range(lo).Column 'Spalte links
sr = Range(ru).Column 'Spalte rechts
For i = zu To zo Step -1
If WorksheetFunction.CountA(Range(Cells(i, sl), Cells(i, sr))) = 0 Then
Range(Cells(i, sl), Cells(i, sr)).Delete Shift:=xlUp
End If
Next i
Application.ScreenUpdating = True
End Sub