Gruppe
Ereignis
Bereich
BeforeSave
Thema
Filter vor Speichern zurücksetzen
Problem
Beim Speichern der Arbeitsmappe sollen die gewählten Filterkriterien in allen Blättern zurückgesetzt werden.
Lösung
Geben Sie den Ereigniscode in das Klassenmodul der Arbeitsmappe ein.
ClassModule: DieseArbeitsmappe
Private Sub Workbook_BeforeSave( _
ByVal SaveAsUI As Boolean, _
Cancel As Boolean)
Dim wks As Worksheet
For Each wks In Worksheets
If wks.FilterMode = True Then
wks.ShowAllData
End If
Next wks
End Sub