Ausgeblendete Zeilen löschen
16.07.2021 08:39:14
Lizzel
irgendwie stehe ich gerade auf dem Schlauch. Ich will alles ausgeblendeten Zeilen löschen. Der Code funktioniert, aber ich bekomme ihn nicht zum Laufen, wenn die Filter in der Zeile 29 sitzen.
Dim rng As Range
Dim lastrow As Long
Dim l As Long
Application.ScreenUpdating = False
lastrow = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
If lastrow > 1 Then
For l = lastrow To 1 Step -1
If Range("A" & 29).EntireRow.Hidden Then
Range("A" & 29).EntireRow.Delete
End If
Next l
End If
Application.ScreenUpdating = True
Anzeige