Wenn Filter in Spalte gesetzt ist Button in Userform anpassen
03.01.2020 15:56:26
Asce
Ich setze über drei Buttons in einer Userform Filter (Criteria1:="" / Criteria1:="=" / Filter Löschen) auf eine Spalten in meiner Tabelle (ListObject). Dabei ändere ich das Bild der Buttons damit ich sehe welche Filterung gerade aktiv ist.
Private Sub cmdWeißSet_Click()
Dim Spaltenname As String
Spaltenname = "Weiß"
Call FilterSetzen(Spaltenname)
cmdWeißSet.Picture = LoadPicture(Application.ActiveWorkbook.Path & "\Icons\FilterWeißSetOn.jpg") _
cmdWeißNot.Picture = LoadPicture(Application.ActiveWorkbook.Path & "\Icons\FilterWeißNotOff.jpg" _
)
cmdWeißDel.Picture = LoadPicture(Application.ActiveWorkbook.Path & "\Icons\FilterWeißDelOff.jpg" _
)
End Sub
Soweit kein Problem jetzt möchte ich aber beim öffnen der Userform erkennen ob und wenn ja welcher Filter gesetzt ist damit ich die richtigen Bilder zuweißen kann. Leider finde ich nur Vorlagen bei dennen allgemein geschaut wird ob ein Filter vorhanden ist. Hat da jemand eine Idee?
lg Asce