Melding filter actief en stoppen macro

[serpent xx]

Ik heb een werkende macro maar zoek een toevoeging hiervoor. De macro werkt bij een ongefilterd werkblad. Als er echter een filter actief is op het werkblad dan loopt deze macro vast. Ik zoek dan ook een toevoeging voor de macro waarin eerst gecontroleerd wordt of er een filter actief is; zo ja dan dient de macro gestopt te worden met een melding dat het filter eerst uitgezet dient te worden. Is er geen filter actief, dan kan die uiteraard gewoon uitgevoerd worden. Een "automatische" optie dat het filter gedeactiveerd wordt met showall zal denk ik niet werken.

 

[sylvester-ponte]

If activesheet.FilterMode Then activesheet.ShowAllData
of
If activesheet.FilterMode Then msgbox("bla bla") : exit sub
of
enz enz

 

[serpent xx]

Top! Dank je.