marcel31281
Gebruiker
- Lid geworden
- 30 okt 2015
- Berichten
- 391
In mijn userform heb ik 52 optionbuttons, die onder andere met de onderstaande code worden aangestuurd
Nu vroeg ik me af of de kleurwijzigingen niet makkelijker kunnen, zodat ik dit niet bij alle 52 handmatig hoef aan te gaan passen.
Alvast bedankt,
( excuses heb geen voorbeeld bestand beschikbaar op dit moment )
Code:
Private Sub OptionButton1_Click()
If True Then
OptionButton1.BackColor = RGB(153, 51, 0) 'dit is rood'
OptionButton1.ForeColor = vbWhite
OptionButton2.BackColor = vbWhite
OptionButton2.ForeColor = RGB(192, 192, 192)
Sheets("RAPPORT VPH").Range("I14") = "ü" '
Sheets("RAPPORT VPH").Range("H14") = ""
End If
End Sub
Private Sub OptionButton2_Click()
If True Then
OptionButton2.BackColor = RGB(0, 128, 128) 'dit is groen'
OptionButton1.BackColor = vbWhite
OptionButton2.ForeColor = vbWhite
OptionButton1.ForeColor = RGB(192, 192, 192)
Sheets("RAPPORT VPH").Range("H14") = "ü" '
Sheets("RAPPORT VPH").Range("I14") = ""
End If
End Sub
Nu vroeg ik me af of de kleurwijzigingen niet makkelijker kunnen, zodat ik dit niet bij alle 52 handmatig hoef aan te gaan passen.
Alvast bedankt,
( excuses heb geen voorbeeld bestand beschikbaar op dit moment )