optionbutton tekst kleur veranderen

[Jamez]

Hallo,

Het forum al een poosje doorgespit, maar kon eigenlijk geen antwoord vinden om mijn vraag.
Ik heb in vb een userform gemaakt met een aantal optionbuttons.
Nu zou ik graag willen dat wanneer bijv. het 1e optionbutton wordt aangeklikt, de gehele tekst enkel in cel A1 rood wordt gemaakt. Indien het 1e optionbutton niet is aangeklikt (of uit wordt gezet) weer terug veranderen in zwart.

Is dit mogelijk?

bij voorbaat dank

Jamez

 

[Wigi]

Zet de Userform in VBA op het scherm.

Selecteer de bewuste Option button en druk F7. Dan krijg je de eerste en laatste regel voor de standaardgebeurtenis: hier het Click event. Dus alle code daartussen wordt uitgevoerd als je klikt op de button. Daarin zal je dus de code moeten zetten, en tevens met een If testen of de button nu aan of uit staat.

Wigi

 

[Jamez]

ha kijk, zo werkt het.
ik het zelf het volgende bedacht (niet helemaal zuiver maar toch):

Private Sub OptionButton1_Click()
If OptionButton1.Value = True Then
Cell B2 = Color.Text = 0
else Nothing
End If
End Sub

 

[Wigi]

(niet helemaal zuiver maar toch)

Goed dat je zelf inziet dat het niet echt zuiver is

Private Sub OptionButton1_Click()
If OptionButton1.Value Then
Range("B2").Font.ColorIndex = 3
else: Range("B2").Font.ColorIndex = 1
End If
End Sub

Wigi

 

[Wigi]

En nog minder typwerk

Private Sub OptionButton1_Click()
Range("B2").Font.ColorIndex = Iif(OptionButton1.Value,3,1)
End Sub

 

[Jamez]

werkt prima!
:thumb:

harstikke bedankt.

groeten
Jamez