Herbers Excel-Forum - das Archiv

Autofilter über Makro

Bild

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
Bild

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

Bild

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

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
Bild

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
 Bild
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