Leerzeilen löschen ab Zeile 500, Makroanpassung?
08.11.2004 12:41:28
Horst
wo muss ich wie das Makro anpassen, damit ich nicht ab Zeile A1, sondern erst ab A500 und alle darunterliegenden Leerzeilen lösche?
Sub LeerzeilenLoeschen()
Dim lngLetzte As Long
Dim lngR As Long
lngLetzte = IIf(IsEmpty(Range("A65536")), Range("A65536").End(xlUp).Row + 1, 65536)
For lngR = lngLetzte To 1 Step -1
If Cells(lngR, 1) = 0 Then
Cells(lngR, 1).EntireRow.Delete
End If
Next
End Sub
Danke im Voraus!
Gruß
Horst
Anzeige