Excel - ActiveSheet.ShowAllData

Question

Hallo - hab mal wieder ne Frage bzgl. Fehlermeldung umgehen?

Habe in diversen Makros folgende Anweisung um alle Filter rückzusetzen:
ActiveSheet.ShowAllData

wenn allerdings keine Filter im Arbeitsblatt gesetzt sind bekomme ich verständlicherweise dann eine Fehlermeldung.

Nun meine Frage:
Wie muss der Syntax lauten, damit bei nicht gesetzten Filtern auch nicht die Anweisung "ActiveSheet.ShowAllData" ausgeführt wird, bzw. das eben keine Fehlermeldung erscheint.!

Answer 1

Hi,

Erster Ansatz aus dem Bauch heraus:

On Error Resume Next
ActiveSheet.ShowAllData
On Error GoTo 0

bye
malSchauen

Answer 2

Hi,

Zweiter Ansatz um Deine bisherige evtl. Fehlerbehandlung nicht durcheinander zu bringen:

If ActiveSheet.FilterMode Then
ActiveSheet.ShowAllData
End If

bye
malSchauen

Answer 3

Ich bedanke mich recht herzlich.

Gruß Volker