Clever-Excel-Forum

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

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

Hallo Uwe

ganz herzlichen Dank!

Läuft tadellos.

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

Herzliche Grüsse

Theo

Theo

Kuwer

Theo