m.b.v. VBA filter uitschakelen in ALLE werkbladen

[Egbert12345]

Ik wil graag met VBA de filterfunctie uitschakelen in alle werkbladen.

Nu vond ik een oude code die ik wilde verbouwen, maar die werkt dus niet (zie onderstaand). Wat doe ik verkeerd?



For Each Sheet In Sheets
If .AutoFilterMode Then .AutoFilterMode = False
Next

 

[edmoor]

Doe het eens zo:

For Each sht In Sheets
    If sht.AutoFilterMode Then sht.ShowAllData
Next

 

[Egbert12345]

hoi, de macro loopt vast op: sht.ShowAllData

 

[edmoor]

Hier niet.

 

[Egbert12345]

Doe mij een plezier en kijk eens naar het voorbeeldbestand. Ik heb een aantal bladen met filter opgenomen en je macro overgenomen. Werkt deze dan wel bij jullie?

 

[VenA]

Sub uitschakelen_filters()
On Error Resume Next
  For Each sht In Sheets
    If sht.AutoFilterMode Then sht.ShowAllData
  Next
End Sub

 

[edmoor]

Maak er dit van:

For Each sht In Sheets
    If sht.FilterMode Then sht.ShowAllData
Next

 

[Egbert12345]

Ik denk dat ik mijn vraag onduidelijk heb gesteld, excuus dan.

Ik wil graag dat de filterfunctie in zijn geheel wordt verwijderd.

 

[edmoor]

Ok:

For Each sht In Sheets
    If sht.AutoFilterMode Then sht.AutoFilterMode = False
Next

 

[Egbert12345]

Bedankt.