Schaltfläche automatisch Farbe wechseln
11.11.2023 16:55:38
Gunter
Ich habe 12 Schaltflächen. Januar - Dezember.
Wenn ich eine von diesen 12 Schaltflächen anklicke, dann soll diese sich mit einer anderen Farbe umwandeln z.B. grün.
Klicke ich eine andere Schaltfläche an , dann soll diese sich grün färben, und die andere soll wieder grau werden.
Ich hoffe, ihr könnt meine Ausführung folgen :)
Dies ist der Cod von der Schaltfläche 2
Private Sub CommandButton2_Click()
Range("T8").Select 'Januar
End Sub
Private Sub CommandButton2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Tabelle1.CommandButton2.BackColor = RGB(0, 255, 0)
End Sub
Danke schon mal voraus