AutoFilter entfernen
04.06.2003 18:07:26
MikeS
mit nachfolgendem Code entferne ich alle mit dem AutoFilter gesetzten Kriterien.
Wenn ich das Makro starte und es ist kein Filter gesetzt, kommt logischerweise eine Wie kann ich also vorher prüfen, ob ein Filterkriterium gesetzt ist??? In der Excel-Hilfe bin ich leider nicht fündig geworden. Dankeschön, MikeS
Sub AlleFilterEntfernen()
With ActiveWorkbook.ActiveSheet
.ShowAllData
[A7].Select
MsgBox "Es wurden alle Auto-Filter entfernt!", vbOKOnly, " Filter deaktiviert"
End With
End Sub
Code eingefügt mit Syntaxhighlighter 2.1
Fehlermeldung.
Anzeige