Office: Überprüfung ob Autofilter aktiv

Excel 2007

Hallo,
wie kann ich überprüfen, ob der Autofilter aktiv ist, oder nicht?
Würde gerne eine Funktion ausführen, falls aktiv - und wenn nicht aktiv, eine andere Funktion ausführen. Bislang habe ich dies lediglich über eine MsgBox machen können. Aber mir ist die manuelle Eingabe zu umständlich...

z.B.:

PHP:

         Dim Mldg, Stil, Titel, Hilfe, Ktxt, Antwort, Text1
Mldg = "Ist der AutoFilter auf Null?"
Stil = vbYesNo + vbCritical + vbDefaultButton2
Titel = "Abfrage Autofilter"
Ktxt = 1000
Antwort = MsgBox(Mldg, Stil, Titel, Hilfe, Ktxt)
If Antwort = vbYes Then
Text1 = "Ja"
Else
Sheets("TABELLE1").Select
ActiveSheet.ShowAllData
End If


:)

 

HAllo

Was verstehst du unter aktiv ?

Ob die Liste gefiltert ist oder ob die "Filterpfeile" nur eingeblendet sind ?

ransi

 

Moin, racoon7,

die Anzahl der sichtbaren Zellen in Spalte A mit der Anzahl der verfügbaren Zellen in Spalte A insgesamt vergleichen? *holy

Code:

Ach ja: eine Tabelle muss nicht aktiviert sein, damit Befehle darauf ausgeführt werden können.

Code:

 

Hallo,

erst einmal vielen Dank für die Hilfen.
@ransi: mit "aktiv" meine ich, dass die Liste gefiltert ist.

Nur der Befehl
Code:

stößt leider auf einen Fehler, falls kein Filter aktiv ist.
Gibt es nicht eine (allgemeine) Möglichkeit zu sagen: wenn der Befehl x einen Fehler aufweist, dann soll er mit Befehl y weitermachen, ansonsten Befehl z ?

Nochmals Danke!
Gruß
BS

 

Hallo!

Der Autofilter ist aktiv oder auch nicht. In einer Zelle soll nun der Hinweis kommen, ob ein Filter gesetzt ist oder nicht.

http://www.excelformeln.de/formeln.html?welcher=77

Gruß
Wilfried