14.11.2021, 15:43
Hallo liebes Forum,
hätte nochmal eine Frage bzgl. VBA.
Ich habe eine Listobject und möchte nun in Zeile C3 des gleichen Blattes (Tabelle14) schreiben bzw. eine "Warnung" bekommen, ob ein Filter aktiviert ist oder nicht.
Das habe ich mit folgendem Code (so weit, so gut) bewerkstelligt.
jetzt habe ich aber zwei Fragen:
1. Die "Warnung" wird mir auch angezeigt, wenn der Filter deaktiviert, also die ListObject nicht gefiltert ist bzw. wurde
2. (wäre ein Goodie): ist es möglich auch in der Warnung anzugeben, welcher Filter (oder zumindest welche Spalte gefiltert wurde)?
Danke für eure Hilfe und schönen Sonntag,
Domi
hätte nochmal eine Frage bzgl. VBA.
Ich habe eine Listobject und möchte nun in Zeile C3 des gleichen Blattes (Tabelle14) schreiben bzw. eine "Warnung" bekommen, ob ein Filter aktiviert ist oder nicht.
Das habe ich mit folgendem Code (so weit, so gut) bewerkstelligt.
Code:
Private Sub Worksheet_Activate()
'Prüft, ob bei der Tabelle "tbl_Trainingstagebuch_Karate" ein Filter aktiviert ist
If Tabelle14.ListObjects("tbl_Trainingstagebuch_Karate").AutoFilter.FilterMode Then
Tabelle14.Range("C3").Value = "Achtung! Ein Filter ist aktiviert."
End If
End Sub
jetzt habe ich aber zwei Fragen:
1. Die "Warnung" wird mir auch angezeigt, wenn der Filter deaktiviert, also die ListObject nicht gefiltert ist bzw. wurde
2. (wäre ein Goodie): ist es möglich auch in der Warnung anzugeben, welcher Filter (oder zumindest welche Spalte gefiltert wurde)?
Danke für eure Hilfe und schönen Sonntag,
Domi