Excel VBA mit Toggle Button Zeile einfärben
12.12.2023 10:51:34
Wolfgang
ich habe ein Makro für einen activeX Toggle Button. Wenn dieser nicht betätigt ist, sollen bestimme Zellen in einer Reihe ihre Hintergrundfarbe ( hexal #FFFFFF ; RGB 255 255 255) behalten. Sobald der Button betätigt wurde, sollen sich die Zellen B9:D9 in die Hintergrundfarbe ( hex. #C198E0; RGB 193 152 224) wechsel. Beim Zurücksetzen des Buttons, sollen die Zellen ihre Ausgangsfarbe wieder annehmen.
Im Voraus, Danke für Eure Hilfe.
Das sind die Codes die ich bisher verwende:
Private Sub TBVergleich_Click()
If TBVergleich.Value = True Then
TBVergleich.Caption = "Aus"
Call SpaltenAu
Else
TBVergleich.Caption = "Ein"
Call SpaltenEi
End If
End Sub
Sub SpaltenEi()
Columns("U:AJ").EntireColumn.Hidden = False
Columns("E").EntireColumn.Hidden = True
Columns("M:T").EntireColumn.Hidden = True
End Sub
Sub SpaltenAu()
Columns("U:AJ").EntireColumn.Hidden = True
Columns("E").EntireColumn.Hidden = False
Columns("M:T").EntireColumn.Hidden = False
End Sub