VBA code om in een tabel de filters te wissen

  • Onderwerp starter Onderwerp starter Tont
  • Startdatum Startdatum

Tont

Gebruiker
Lid geworden
17 jan 2024
Berichten
42
Graag zou ik in een macro code willen opnemen die er voor zorgt dat de filters die in een tabel zijn ingesteld allemaal worden gewist. Als er in de tabel filters zijn aangezet is dat niet zo moeilijk. Code is dan volgens mij: ActiveSheet.ShowAllData
Omdat er meerdere personen met de tabel werken wil ik graag dat er geen foutmelding komt wanneer de macro wordt uitgevoerd als er op dat moment geen filters aan staan. Dat gebeurt nu dus wel.
Hoe kan ik de macro zo aanpassen dat er niets gebeurt als er geen filters zijn ingesteld maar dat de filters wel allemaal worden gewist als er ook echt filters zijn ingesteld?
 
Met deze

Code:
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
 
Terug
Bovenaan Onderaan