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

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

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

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige