Autofilter VBA raus + wieder rein / Select all
16.06.2008 00:41:38
Florian
ich habe ein Problem mit dem Auto Filter.
Im Sheet soll der Autofilter immer aktiviert sein, gleichzeitig sollen aber bei Öffnen der Datei immer alle Daten sichtbar sein. Deshalb habe ich mir überlegt, den Autofilter beim Öffnen zunächst rauszunehmen und gleich danach für den entsprechenden Bereich wieder reinzutun. Irgendwie funktioniert das nicht, manchmal geht (startet mit Filter), manchmal gehts nicht und er startet ohne Filter. Sieht jemand den Fehler?
Danke im Voraus!
Private Sub Workbook_Open()
ThisWorkbook.Sheets("Lager").Unprotect Password:="gfz"
If ThisWorkbook.Sheets("Lager").AutoFilter.FilterMode = True Then
ThisWorkbook.Sheets("Lager").AutoFilter.FilterMode = False
End If
ThisWorkbook.Sheets("Lager").Range(ThisWorkbook.Sheets("Lager").Cells(2, 1), ThisWorkbook. _
_
Sheets("Lager").Cells(2, 30)).AutoFilter
ThisWorkbook.Sheets("Lager").Protect Password:="gfz", AllowFiltering:=True
End Sub