Autofilter löschen beim öffnen

[Theo]

Hallo Helfer

ich möchte in einer Arbeitsmappe, in allen Tabellen, möglicherweise vorhandene Autofilter löschen.

Ich habe folgendes versucht (aus diversen Beiträgen von Euch zusammengebastelt):

Private Sub Workbook_Open()

Dim ws As Worksheet
For Each ws In Worksheets
    ws.Unprotect Password:="Passwort"
    ws.ShowAllData
    ws.Protect userinterfaceonly:=True
    ws.Protect Password:="Passwort"
Next ws

End Sub

Das funktioniert aber nur, wenn auch tatsächlicher ein Filter gesetzt ist.
Wenn kein Filter vorhanden ist, erhalte ich einen Laufzeitfehler 1004.

Kann mir bitte jemand helfen?

Gruss und Dank

Theo

[Kuwer]

Hallo Theo,

Code:

Private Sub Workbook_Open()
  Dim ws As Worksheet
  For Each ws In Worksheets
    With ws
      .Unprotect Password:="Passwort"
      If .AutoFilterMode Then
        If .FilterMode Then
          .ShowAllData
        End If
      End If
      .Protect Password:="Passwort", UserinterfaceOnly:=True
    End With
  Next ws
End Sub

Gruß Uwe

[Theo]

Hallo Uwe


ganz herzlichen Dank!

Läuft tadellos.

Bin ich froh, dass es dieses Forum und Euch Helfer gibt!

Herzliche Grüsse

Theo