Sub LeerZeilenKiller()
Dim Bereich As String, lo As String, ru As String
Dim zo As Long, zu As Long, i As Long
Dim sl As Integer, sr As Integer
Application.ScreenUpdating = False
Bereich = Range("Liste2").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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen