AW: leere zeilen löschen
08.09.2003 08:25:52
WernerB.
Hallo Peter,
wie gefällt Dir dieses Makro:
Option Explicit
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
Viel Erfolg wünscht
WernerB.
P.S.: Das Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter (siehe Forums-FAQ).