Autofilter über Makro

Forumthread: Autofilter über Makro
4 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Autofilter über Makro

19.12.2006 14: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

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Autofilter über Makro

19.12.2006 14:10:55

Dr.
AW: Autofilter über Makro

19.12.2006 14:57:44

Daniel
AW: Autofilter über Makro

19.12.2006 14:37:06

haw
AW: Autofilter über Makro

19.12.2006 14:39:54

EtoPHG

AW: Autofilter über Makro

19.12.2006 14:10:55

Dr.

Hi,


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

AW: Autofilter über Makro

19.12.2006 14:57:44

Daniel

Vielen Dank, hat gefunzt.

AW: Autofilter über Makro

19.12.2006 14: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

AW: Autofilter über Makro

19.12.2006 14: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