Filter löschen, bevor ein Arbeitsblatt mit VBA in Microsoft Excel Speichern
speichern Frage:
Setzen Sie beim Speichern einer Arbeitsmappe alle Filterkriterien in allen Arbeitsblättern zurück.
Antwort:
Fügen Sie den folgenden Code in dieses Arbeitsmappenmodul ein.
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