Supportnet / Forum / Tabellenkalkulation
AutoFilter in Excel zurücksetzen
Frage
Hallo alle zusammen,
ich benutze in einem Tabellenblatt den Autofilter trotz aktiviertem Blattschutz (über folgendes Makro):
--------
Sub AutofilterBeiBlattschutz()
ActiveSheet.Protect userinterfaceonly:=True
´ im geschützten Blatt arbeiten
ActiveSheet.EnableAutoFilter = True
End Sub
--------
Wird die Datei nun gespeichert, obwohl nach einem bestimmten Kriterium gefiltert ist, so soll beim nächsten Öffnen wieder alles angezeigt werden (also quasi ein "zurücksetzen" des Filters). Wie geht das ?
Würde mich sehr über Hilfestellungen freuen.
Vielen Dank
Antwort 1 von schnallgonz
Salve,
folgendes Ereignismakro im VBA-Fenster unter "Diese Arbeitsmappe"kopieren.
"Tabelle1" durch den Namen des entsprechenden Blattes ersetzen.
Private Sub Workbook_Open()
If Worksheets("Tabelle1").AutoFilterMode Then Selection.AutoFilter
End Sub
gruß
schnallgonz
folgendes Ereignismakro im VBA-Fenster unter "Diese Arbeitsmappe"kopieren.
"Tabelle1" durch den Namen des entsprechenden Blattes ersetzen.
Private Sub Workbook_Open()
If Worksheets("Tabelle1").AutoFilterMode Then Selection.AutoFilter
End Sub
gruß
schnallgonz

