Autofilter

[Wim van Dijk]

Ik zoek een oplossing voor het volgende probleempje. Ik heb boven een lijst een autofilter staan die altijd aan blijft. De gebruikers filteren vaak op meerdere kolommen, maar willen soms ook met één druk op de knop alle filteringen ongedaan maken. (Actieve filtering is zeker voor kleurenblinden nauwelijks te zien, wat een bijkomende reden is voor zo'n knop). Deze knop heb ik geprogrammeerd door

Private Sub AS_annuleren_Click()
ActiveSheet.ShowAllData
End Sub

Dit werkt fantastisch als het filter op dat moment dat het autofilter in een of meerdere kolommen daadwerkelijk filtert. Op het moment dat het filter wel aan staat maar niets doet geeft het een foutmelding. Voor dat laatste zoek ik dus een oplossing.

 

[Wigi]

Private Sub AS_annuleren_Click()
If ActiveSheet.AutoFilterMode Then ActiveSheet.ShowAllData
End Sub

Wigi

 

[Wim van Dijk]

De oplossing werkt niet. Hier controleer je of het autofilter aan staat. Op zich is dat nuttig. Het probleem is dat ik een foutmelding krijg als het filter aan staat, maar op dat moment niets filtert.

 

[Wigi]

Excuses, de Auto stond er te veel:

Private Sub AS_annuleren_Click()
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
End Sub

Wigi

 

[Wim van Dijk]

Soms zijn dingen heel simpel. Hartelijk dank!