Button Backcolor
22.06.2022 11:44:44
Antonio
suche schon lang und nichts gefunden über Button1 bei Click farbe wechsel und über Button2 farbe zurück.
Ich versuche es besser zu erklären:
ich habe in einer UserForm 10 Button und möchte das wenn ein Button geclicked wird das dieser die Farbe ändert, dann weiß ich der Button
ist aktiv und läuft was.
Beim clicken auf einen anderen Button, soll der erste seine ursprüngliche Farbe annehmen und der zweite soll sich färben.
Private Sub ButtonGroup_Click()
With ButtonGroup
If .BackColor = &H8000000F Then
.BackColor = &HC0C0FF
Else
.BackColor = &H8000000F
End If
End With
End Sub
Option Explicit
Public WithEvents ButtonGroup As CommandButton
Private Sub ButtonGroup_Click()
Dim Caption As String
Dim Ws As Worksheet
Set Ws = Tabelle1
'Select Case
If ButtonGroup.Caption = "C" Then
Ws.Range("Y35") = 11
If ButtonGroup.BackColor = &H8000000F Then
ButtonGroup.BackColor = &HC0C0FF
Else
ButtonGroup.BackColor = &H8000000F
End If
End If
If ButtonGroup.Caption = "Db" Then
Ws.Range("Y35") = 10
If ButtonGroup.BackColor = &H8000000F Then
ButtonGroup.BackColor = &HC0C0FF
Else
ButtonGroup.BackColor = &H8000000F
End If
End If
'End Select
End Sub
Nicht das Wahre,
Kann mir Jemand bitte helfen mit evtll. ein Selest Case?
Vielen Dank im Voraus
LG Antonio