Office: (Office 2013) VBA-Abfrage, ob Autofilter in einer Tabelle aktiv ist

Guten Morgen ihr Excel-Spezialisten,

ich versuche krampfhaft die Abfrage hin zu bekommen, ob ein Autofilter in einer Tabelle aktiv ist. Also wirklich eine Liste, die zu einer Tabelle über die Menüoption "Einfügen"/"Tabelle" gemacht zusammengefasst wurde.
Bisher tat ich es bei "normalen" Liste mittels der VBA-Zeile:
if activesheet.autofiltermode=true then ....
Bei einer Tabelle erkennt er aber anscheinend nicht diesen Autofilter. Er überspringt das "then".

Für eure Hilfe wäre ich sehr dankbar!:)

Gruß
Walter

 

Hi Walter,

ein als Tabelle formatierter Zellbereich ist nicht mit dem "normalen" Autofilter gleichzusetzen, denn den "normalen" Autofilter kann es nur 1mal im Tabellenblatt geben, formatierte Tabellen (mit betreffener Filtermöglichkeit) dagegen mehrere. Wenn du also wissen willt, ob ein als Tabelle formatierter Bereich vorhanden ist, dann musst du prüfen, ob (mindestens) ein ListObject vorhanden ist

Code:

If ActiveSheet.ListObjects.Count > 0 Then

Bis später,
Karin

 

Danke Karin, das verstehe ich.

Wie kann ich denn abfragen, ob in diesem Objekt ein Autofilter (oder auch nur ein Filter) aktiv ist? Hintergrund: ich möchte den Filter ausschalten und dann anschließend meinen Filtereinsetzen.

Gruß
Walter

 

Hi Walter,

auf diesem Weg:

Code:

Sub TabelleFilter()
    Dim intFilter As Integer
    If ActiveSheet.ListObjects.Count > 0 Then
        With ActiveSheet.ListObjects(1)
            ' wenn Filter gesetzt dann alle Filter löschen
            If .AutoFilter.FilterMode Then .AutoFilter.ShowAllData
        End With
    End If
End Sub

Bis später,
Karin

 

Hallo Karin,

wenn der Autofilter gesetzt war, dann passt's. Der gesetzte Filter wird herausgenommen. Wenn aber kein Autofilter gesetzt ist, dann bringt mir Excel eine Fehlermeldung. Ich kann diese zwar mit on error resume next abfangen, ist für mich aber nur eine Notlösung. Besser wäre es, wenn ich prüfen kann, ob der Autofilter überhaupt gesetzt ist.

Kannst du mir da weiterhelfen?

Gruß
Walter

 

Hi Walter,

du meinst, wenn die Tabelle ohne Autofilter erstellt wurde? In diesem Fall läuft der Code nicht in den Teil nach Then. Deshalb wird ja auch abgefragt, ob es den Filtermodus überhaupt git - mit dem Hinweis "Filter gesetzt" meinte ich, dass es den Autofilter überhaupt gibt, nicht ob ein Filterkriterium in einer der Spalten ausgewählt wurde.

Bis später,
Karin