filter uitzetten met VBA

[Egbert12345]

Hoi, ik maak vaak gebruik van een commando in VBA om te checken of de filter aanstaat en die dan uit te schakelen. Zie het voorbeeldbestand.

Ik gebruik dan : If ActiveSheet.AutoFilterMode Then Selection.AutoFilter ' (eventueel) filter uitzetten

Ik moet dan wel in blad1 staan. Nu wil ik hetzelfde kunnen doen, maar dan als ik in blad2 sta en de filters in blad1 wil uitzetten.
Ik gebruik dan: If Sheets("blad1").AutoFilterMode Then Selection.AutoFilter ' (eventueel) filter uitzetten

De filter wordt niet uitgezet. Wat vergeet ik?

m.vr.gr.

 

[edmoor]

Probeer dit eens, als er een filter aan staat:

Sheets("blad1").ShowAllData

Als er geen filter aan staat:

On Error Resume Next
Sheets("blad1").ShowAllData
On Error Goto 0

 

[Egbert12345]

Hoi Edmoor, die werkt niet helemaal, maar ik heb met google wat gezocht en kwam op een oplossing die jij jaren geleden (ik meen in 2017) hebt gegeven en die werkt. Zie onderstaand. Voor nu "en toen" :=) bedankt.

With Sheets("blad1")
If .AutoFilterMode Then .AutoFilterMode = False
End With

 

[edmoor]

Wat ik plaatste werkt prima in je voorbeeld document.

 

[Egbert12345]

Yep, maar in de verwerking van mijn programma weet ik op dat moment niet of de filter staat ingeschakeld. Dit werkt nu,