Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Filter vor Speichern zurücksetzen

Gruppe

BeforeSave

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