Kan ik for each toepassen om optionbuttons te checken?

[BromsnorII]

Hallo,

Ik wil in een formulier checken welke optionbutton is geselecteerd. Ik heb het geprobeerd met;
week =
For Each OptionButton In UserForm1
If OptionButton.Value = True Then
week = OptionButton.Caption
End If
Next

Maar dit werkt niet, heeft iemand een idee hoe dit wel moet?

Groet,
Sietse

 

[snb]

For Each ctl In UserForm1.controls
    If vartype(clt)=11 and clt.value=true then exit for
  End If
  week = clt.Caption
Next

 

[BromsnorII]

Object vereist (Fout 424)

Hallo,

Dank voor je snelle reactie.
Ik krijg, als ik de code invoer tijdens uitvoering; Object vereist (Fout 424)

Ik maak uit je antwoord op dat objecten ook een numerieke waarde hebben. En dat je ze dus ook als zodanig kunt aanroepen. 11 zou dan voor optionbutton moeten zijn?

Waar kan ik deze wetenschap vinden?

Groet,
Sietse

 

[Warme bakkertje]

For Each ctl In UserForm1.controls
If vartype(ctl)=11 and ctl.value=true then exit for
End If
week = ctl.Caption
Next

 

[BromsnorII]

Yesss

Hallo Rudi,

Nu had ik alles al geprobeerd, ctrl en control.... maar jou variant nog niet. Hoe het werkt weet ik nog niet. Maar dat het werkt is duidelijk.



Heel veel dank,
Sietse