radiobotton koppelen aan tekstvak in userform

[Danielle22]

Hallo allemaal,

Ik heb een userform en daar staan radiobottons in. Is het ook mogelijk om de buttons te koppelen aan een tekstvak? Ik gebruik nu steeds een vinkje, maar het nadeel daarvan is dat je die steeds weer uit moet klikken.

Dus als ik de “ja” aanzet dan moet er “ja” in het tekstvak komen te staan (zie bijlage).

Alvast heel erg bedankt voor de hulp.

Groetjes,

Danielle

Bekijk bijlage voorbeeld button.xls

 

[Danielle22]

Hallo allemaal,

Het is me gelukt :d

Dit is de code geworden:

Private Sub OptionButton1_Click()
If OptionButton1 = True Then
Me.TextBox1.Text = "ja"
Else: Me.TextBox1.Text = ""
End If
End Sub

Private Sub OptionButton2_Click()
If OptionButton2 = True Then
Me.TextBox1.Text = "nee"
Else: Me.TextBox1.Text = ""
End If
End Sub

Private Sub OptionButton2_Click()
If OptionButton2 = True Then
Me.TextBox1.Text = "ja/nee"
Else: Me.TextBox1.Text = ""
End If
End Sub

 

[HSV]

Private Sub OptionButton1_Click()
TextBox1.Text = "ja"
End Sub

De anderen kun je haast wel raden.

 

[Danielle22]

Hoi Harry,

Bedankt :thumb:

Is het ook mogelijk om de buttons mee te laten lopen in het volgende userform?

Dus als er "ja" in de tekstvak staat dat dan de button "ja" ook aan staat, etc

zie bijlage

Groetjes,

Danielle
Bekijk bijlage Voorbeeldje_userform.rar

 

[HSV]

Of

Hoi Daniëlle,

Het lijkt alsof er altijd een status is.

Private Sub KolomK_Change()
 If KolomK = "" Then Exit Sub
   If KolomK = "ja" Then
      OptionButton1 = True
ElseIf KolomK = "nee" Then
      OptionButton2 = True
Else: OptionButton3 = True
  End If
End Sub

Of:

Private Sub KolomK_Change()
   Select Case KolomK
Case "ja"
   OptionButton1 = True
Case "nee"
   OptionButton2 = True
Case "ja/nee"
   OptionButton3 = True
End Select
End Sub

 

[Danielle22]

Hoi Harry,

Top bedankt :thumb:

Doet het perfect!

Groetjes,

Danielle