EnableAutoFilter = True zeigt keine Wirkung

Bild

Betrifft: EnableAutoFilter = True zeigt keine Wirkung
von: Max
Geschrieben am: 28.06.2015 15:47:58

Hallo zusammen,
mir ist es fast schon unangenehm zu fragen, aber ich glaube, dass ich inzwischen vor lauter Bäumen den Wald nicht mehr sehe.
Ich stehe vor folgendem Problem:
Trotz Blattschutz soll die Auto-Filter Funktion möglich sein. Ich bin davon ausgegangen, dass sich dies Problemlos über "EnableAutoFilter = True" umsetzen lässt. Nachdem ich jetzt das Internet abgesucht habe und alle möglichen versionen durchgetestet habe muss ich doch um Hilfe bitten - es funktioniert leider nicht:(.
Vielleicht sieht ja jemand den Fehler auf den ersten Blick.


Private Sub Workbook_Open()
Dim wSheet As Worksheet
Worksheets("Tabelle1").Unprotect Password:="XXX"
Worksheets("Tabelle1").Range("T5:T10000").Locked = True
Worksheets("Tabelle1").Range("T5:T296").Locked = False
    For Each wSheet In Worksheets
        wSheet.Protect userinterfaceonly:=True, Password:="XXX"
        wSheet.EnableAutoFilter = True
Next wSheet
Worksheets("Tabelle1").Select
Cells(1, 1).Select
End Sub

Schon einmal vielen Dank im Voraus.

Bild

Betrifft: AW: EnableAutoFilter = True zeigt keine Wirkung
von: Max
Geschrieben am: 28.06.2015 17:08:08
Das Problem hat sich gerade von selbst erledigt.
Manchmal hilft es scheinbar doch Excel einfach vollständig zu schließen und wieder zu öffnen:D.

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Auslesen einer Zelle über VBA"