Gruppe
Ereignis
Problem
Beim Speichern der Arbeitsmappe sollen die gewählten Filterkriterien in allen Blättern zurückgesetzt werden.
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