Makro leere Zeilen löschen
02.09.2003 15:11:45
junny
ich will im Sheet ("Holzliste") ab Zelle E5 die Zeilen abwärts durchsuchen, alle leeren sollen gelöscht werden (Spalte E soll der Bezugspunkt sein)
Mein derzeitiger Code
'Leerzeilen in der Holzliste löschen
Dim LgZ%, LZ As Double, X%
With Worksheets("Holzliste").Range("E5")
LgZ = Cells(Rows.Count, 5).End(xlUp).Row
For X = 1 To LgZ
On Error Resume Next
If Not IsEmpty(Cells(X, 1)) And Cells(X, 1) <> 0 Then
Else: Exit For
End If
Next X
LgZ = X
LZ = Rows.Count
End With
Rows((LgZ) & ":" & (LZ)).EntireRow.Delete shift:=xlUp
Danke!!