Office: (Office 2010) Filter beim Öffnen zurücksetzten als "wenn/dann"

Hallo,

folgenden Code habe ich in der Datei damit alle gesetzten Autofilter beim Öffnen der Datei zurückgesetzt werden:

Option Explicit
Private Sub Workbook_Open()
Worksheets("LPMS").ShowAllData
End Sub


Wenn aber die Datei ohne gesetzte Filter gespeichert wird, erscheint beim Öffnen eine Fehlermeldung weil ja kein gesetzter Filter vorhanden ist.
Welche Möglichkeit gibt es, damit die Routine nur abläuft, wenn auch Filter gesetzt/aktiv sind?

Es sollen die Filter als solches nicht gelöscht werden, nur halt alle Daten angezeigt.

Vielen dank
Thomas

:)

 

Hallo,

Du könntest den Fehler einfach ignorieren:

Code:

VG
Santa

 

Hallo Thomas,

ich würde erst prüfen ob Filter gesetzt und dann zurücksetzen

If Worksheets("LPMS").FilterMode = True Then Worksheets("LPMS").ShowAllData

Gruß
Holger

 

Hallo,

danke, beides funktioniert.
Ich habe mich für die zweite Variante entschieden (Fehlervermeidung
statt Fehlerbeseitigung(ignorieren) )
*Smilie *Smilie *Smilie

Danke