Autofilter über Makro

• Autofilter über Makro von Daniel Klein vom 19.12.2006 13:02:35
• AW: Autofilter über Makro - von Dr. am 19.12.2006 13:10:55
  • AW: Autofilter über Makro - von Daniel Klein am 19.12.2006 13:57:44
• AW: Autofilter über Makro - von haw am 19.12.2006 13:37:06
• AW: Autofilter über Makro - von EtoPHG am 19.12.2006 13:39:54

Betrifft: Autofilter über Makro
von: Daniel Klein

Geschrieben am: 19.12.2006 13:02:35
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

Betrifft: AW: Autofilter über Makro
von: Dr.
Geschrieben am: 19.12.2006 13:10:55
Hi,

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

Betrifft: AW: Autofilter über Makro
von: Daniel Klein
Geschrieben am: 19.12.2006 13:57:44
Vielen Dank, hat gefunzt.

Betrifft: AW: Autofilter über Makro
von: haw
Geschrieben am: 19.12.2006 13:37:06
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

Betrifft: AW: Autofilter über Makro
von: EtoPHG

Geschrieben am: 19.12.2006 13:39:54
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

Excel-Beispiele zum Thema "Autofilter über Makro"
Autofilter auch mit Ziffern von Zahlen	Zellenwert als Autofilter-Kriterienwert
AutoFilter über mehrere Arbeitsblätter setzen	Kopfzelle mit aktivem Autofilter markieren
Nur die sichtbaren Zellen eines AutoFilter-Bereiches einlesen	Anzahl der durch Autofilter ermittelten Datensätze anzeigen
Autofilter-Kriterien über UserForm vorgeben	Makroaufruf bei Betätigung des Autofilters
Autofilter-Kriterien nach dem Filtern anzeigen	Kopfzeile einer Autofilter-Tabelle gelb hinterlegen