Actieve autofilter opheffen

[toverkamp]

Hallo excelliefhebbers.

Ik heb via een formulier een een zoekfuntie ingebouwd. Er kan gezocht worden op verschillende types. Deze types staan in verschillende kolommen in een werkblad (A t/m M). Als er gezocht wordt op bijvoorbeeld moter dan wordt er automatisch een autofilter toegepast op kolom C.
Om ervoor te zorgen dat ik het formulier weer "netjes" afsluit heb ik een macro-toegevoegd die ervoor zorgt dat de autofilter wordt opgeheven. Het nadeel van deze macro is dat hij bij iedere kolom de autofilter opheft, terwijl er maar op 1 kolom een autofilter is toegepast (zo'n blauw driehoekje). Is het mogelijk om alleen de actieve autofilter op te heffen, zodat het een stuk sneller gaat?

De code van de macro die ik gebruik is:

Sub IDnummeruitklappen()
    Sheets("idnummers").Select
    Selection.AutoFilter Field:=2
    Selection.AutoFilter Field:=3
    Selection.AutoFilter Field:=7
    Selection.AutoFilter Field:=9
    Selection.AutoFilter Field:=10
    Selection.AutoFilter Field:=12
    Selection.AutoFilter Field:=13
    Selection.AutoFilter Field:=14
    Selection.AutoFilter Field:=15
    Selection.AutoFilter Field:=16
    Selection.AutoFilter Field:=17
    Selection.AutoFilter Field:=18
    Selection.AutoFilter Field:=19
    Selection.AutoFilter Field:=20
    Selection.AutoFilter Field:=21
    Selection.AutoFilter Field:=22
    Sheets("blad1").Select
End If
End Sub

 

[Spiderman]

Hoi toverkamp,

Zoiets:

Sub KillAutoFilter()
If Worksheets("Blad1").AutoFilterMode Then
    Worksheets("Blad1").AutoFilterMode = False
End If
End Sub

P.S. Met dank aan Wigi (Heb deze ooit van hemn gekregen)

 

[toverkamp]

Ja (Wigi) bedankt dat bedoel ik