2 mogelijk filter acies in 1 button ( afhankelijk van de huidige status )

[Humadgen]

Hallo

Ik wil 1 macro de mogelijkheid hebben om een filter te activeren of te deactiveren
De filter zit in Cell O1, en moet als ik op de knop druk gaan filteren op waarde <1> ( als op dat moment de filter op <all> staat ) en omgekeerd. als de waarde <1> is geselecteerd, dan moet hij weer op <all> komen te staan als ik op de knop druk.

Ik zit er volgens mij wel bij in de buurt, maar krijg net de laatste stap niet voor elkaar. iemand een idee waar ik fout ga?

Sub filter()
    If ActiveSheet.AutoFilterMode Then
    ActiveSheet.Range("$O$1:$O$151").AutoFilter Field:=1, Criteria1:="<>"
    Else
    ActiveSheet.Range("$O$1:$O$151").AutoFilter Field:=1
    End If
End Sub

of kan wat ik wil helemaal niet?

Thanks
Humadgen

 

[sylvester-ponte]

graag een voorbeeldje (zonder gevoelige informatie).
dan hoeven de helpers geen test bestandje in elkaar te zetten.

 

[Humadgen]

Sorry je hebt gelijk, had ik even aan moeten denken

Bekijk bijlage duo filter.xls

 

[HSV]

Sub filter()
    If ActiveSheet.AutoFilter.Filters(1).On Then
         ActiveSheet.Range("$O$1:$O$151").AutoFilter 1 'of korter ActiveSheet.AutoFilter.ShowAllData
     Else
        ActiveSheet.Range("$O$1:$O$151").AutoFilter 1, "<>"
   End If
End Sub

 

[Humadgen]

Brilliant Harry.
Ikzat er dicht bij, maar het zijn net die kleine dingen.
Grtnx
Humadgen

 

[HSV]

Je zat er inderdaad dichtbij.

Een goede tip zoals 'Autofiltermode'.
Ga met de cursor achter of óp het woord staan in de Vb-editor en druk F1.
Zo zijn er voorbeeldjes en linkjes naar de methoden of argumenten van de functies.
Meestal je grote vriend.