Hallo zusammen,

ich bräuchte einmal eure Hilfe.
Mit dem Code lösche ich alle ausgeblendeten Zeilen in einem Blatt.

Sub Löschen()
For lp = 65536 To 1 Step -1
If Rows(lp).EntireRow.Hidden = True Then Rows(lp).EntireRow.Delete Else
Next
End Sub

Jetzt fehlt mir eine Idee wie ich es beschreiben soll, dass z.B. die Zeilen 1 bis 4 nicht gelöscht werden auch wenn sie ausgeblendet sind.

Danke vorab

VG Micha