|
Hallo liebe Community,
ich hab ein Problem in VBA, aber nur mittelmäßige bis gute Kenntnisse. Hoffe ihr könnt mir helfen :)
Ich soll in einer Excel-Liste einen Button einfügen, welcher alle Filter (Range: A1-A13) rücksetzt.
Soweit so gut. Jedoch gibt es ein Problem: Wenn man auf den Button drückt und zuvor keine Filterung ausgewählt war(nichts gefiltert), kommt ein Debuggfehler.
Hier will mein Chef, dass dann eine MsgBox kommt, in der steht: "Keine Filterung vorhanden".
Mit "ActiveSheet.ShowAllData" kann ich zwar die Filterung aufheben(alle Daten werden dann wieder angezeigt),
jedoch weis ich nicht, wie ich überprüfen soll, ob ein Filter überhaupt gesetzt ist.
Ich dachte an soetwas ähnliches wie:
"If Filtergesetzt=true then
ActiveSheet.ShowAllData
End If"
Problem: Funktion: Filtergesetzt kenn ich leider nicht -.-
Bitte bitte helft mir (bin doch Praktikantin und will n guten Eindruck hinterlassen^^)
LG Verena
|