Testen of Autofilter al is ingesteld?

[Gert Bouwmeeste]

Hoe kan ik testen of een Autofilter al is ingesteld? Zo niet, dan wil ik hem via een macro alsnog instellen (dat lukt wel). Kan zoiets?

Dank alvast!

Groet,
Gert

:thumb:

Sorry, al gevonden. Had iets langer moeten zoeken:

Sub TurnAutoFilterOn()
'check for filter, turn on if none exists
  If Not ActiveSheet.AutoFilterMode Then
    ActiveSheet.Range("A1").AutoFilter
  End If
End Sub

Gevonden op
http://www.contextures.com/xlautofilter03.html

 

[Rommyke]

Hallo Gert ,


Met onderstaande code moet dat wel lukken

Hierbij wordt gekeken of de autofilter aan staat
zoniet dan wordt deze aangezet

Sub TurnAutoFilterOn()
'check for filter, turn on if none exists
  If Not ActiveSheet.AutoFilterMode Then
    ActiveSheet.Range("A1").AutoFilter
  End If
End Sub

Groetjes

Romain

 

[Gert Bouwmeeste]

Dank je wel!

Romaine,

Dank je wel. Had dezelfde ook algevonden. Net de Wet van Murphy. Als je denkt dat je het niet kunt vinden en je stelt de vraag dan vind je het meteen daarna.

Dank en groet,
Gert