Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Autofilter löschen beim öffnen
#1
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
Antworten Top
#2
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
Antworten Top
#3
Hallo Uwe


ganz herzlichen Dank!

Läuft tadellos.

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

Herzliche Grüsse

Theo
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste