Autofilter
19.01.2018 15:31:58
Tom
alle Autofilter-Ergebnisse einer Arbeitsmappe sollen über einen Code gelöscht werden. Wie lässt sich das umsetzen? Ich habe folgendes Makro, dass sich aber nur auf das aktive Tabellenblatt bezieht.
Sub AutofilterergebnisLoeschenOhneAbfrage()
If ActiveSheet.AutoFilterMode Then
If ActiveSheet.FilterMode Then
'If MsgBox("Sollen die Zeilen des aktuellen " & vbLf & _
"Autofilterergebnisses komplett gelöscht werden ?", _
vbQuestion + vbYesNo, "Zeilen Löschen") = vbYes Then
With ActiveSheet.AutoFilter.Range.Offset(1)
.Resize(ActiveSheet.AutoFilter.Range.Rows.Count - 1).EntireRow.Delete _
Shift:=xlUp
End With
'End If
Else
MsgBox "Es wurden keine Filterkriterien angegeben !"
End If
Else
MsgBox "Es ist kein Autofilter aktiviert !"
End If
End Sub
Anzeige