ich möchte bei mehrere ToggleButten die Hintergrundfarbe bei Betätigung ändern.
am Liebsten wäre es mir ähnlich meinem Code - ich schaffe es nur nicht die Variable Farbe _ richtig zu deklarieren bzw. zu füllen:
Private Sub TB1_Click()
With TB1
.BackColor = IIf(.Value = True, Farbe, &H8000000F)
.Caption = IIf(.Value = True, Kürzel, Right(.Name, Len(.Name) - 2))
Worksheets(Blattname).Range(Spalte & (CInt(Right(.Name, Len(.Name) - 2)) + 1)) = _
_
_
_
IIf(.Value = True, Right(.Name, Len(.Name) - 2), "")
End With
End Sub
Schon mal vielen Dank für Eure Hilfe.
Gruß Peter