Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
828to832
828to832
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Autofilter über Makro

Forumthread: Autofilter über Makro

Autofilter über Makro
19.12.2006 13:02:35
Daniel
Hallo Leute,
ist es möglich, in einem Makro zu erkennen, ob ein Autofilter in der Mappe aktiviert ist? Und wenn ja, diesen bzw. alle Autofilter zu deaktivieren?
Danke
Daniel
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Autofilter über Makro
19.12.2006 13:10:55
Dr.
Hi,

Sub test()
If ActiveSheet.AutoFilterMode Then MsgBox "hier wird gefiltert"
End Sub

AW: Autofilter über Makro
19.12.2006 13:57:44
Daniel
Vielen Dank, hat gefunzt.
AW: Autofilter über Makro
19.12.2006 13:37:06
haw
Hallo Daniel,
z.B. so:

Sub Autofiltertest()
If ActiveSheet.AutoFilterMode = True Then
MsgBox "Autofilter an"
Selection.AutoFilter
MsgBox "Nun ist der Filter aus"
End If
End Sub

Gruß Heinz
Anzeige
AW: Autofilter über Makro
19.12.2006 13:39:54
EtoPHG
Hallo Daniel,
Hier ist eine FlipFlop Routine für den Autofilter.
Funktioniert ab dem Zeitpunkt, als einmal ein Autofilter aktiv war/ist:

Public sCurrFilterRange As String
Public Sub AutoFilterFlipFlop()
If sCurrFilterRange = "" And ActiveSheet.AutoFilterMode Then
sCurrFilterRange = ActiveSheet.AutoFilter.Range.Address
ActiveSheet.AutoFilterMode = False
Else
If Not (sCurrFilterRange = "") Then
ActiveSheet.Range(sCurrFilterRange).AutoFilter
sCurrFilterRange = ""
End If
End If
End Sub

Gruss Hansueli
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige