beim Schliessen meiner Exceldatei moechte ich eventuell gesetzte Filter zuruecksetzen. Habe dafuer folgenden Code:
Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim wks As Worksheet
For Each wks In ThisWorkbook.Worksheets
With wks
If .FilterMode Then .ShowAllData
End With
Next wks
End Sub
Leider funktioniert das nicht. Der Filter ist immernoch aktiv, wenn ich das File wieder oeffne.Kann das daran liegen, dass die Tabelle erst in der Zeile 10 (Header) anfaengt?
Darueber sind verschiedene Shapes zum Anzeigen verschiedener Berechnungen.
Kann mir jemand helfen und sagen, was ich anders machen oder ergaenzen muss?
Vielen Dank im Voraus.
Gruss Torsten