Groupname optionbutton

[rudyV]

Geacht forum,

Graag wil ik, door op een optionbutton te klikken de groupname hiervan vaststellen.
Kan dit met vba?

De optionbuttons zijn gesitueerd op een userform.

Bij voorbaat dank,

Ruud

 

[edmoor]

Die eigenschap kan je gewoon ophalen.

Bijvoorbeeld:
OptionButton1.GroupName

 

[rudyV]

Hallo Edmoor,

Dat is wat ik zocht.

Dank voor je hulp.

Groet, Ruud

 

[rudyV]

Graag kom ik toch nog even terug op mijn eerdere vraag.

Aan de hand van het antwoord van Edmoor heb ik de onderstaande code.

Dim oButton as control
For Each oButton In frmCLs.Controls
If TypeOf oButton Is MSForms.OptionButton Then
    If oButton = True Then
        MsgBox oButton.GroupName
    End If
End If
Next oButton

Echter, bij het klikken op een optionbutton komen nu alle goupnames voorbij waarbij een optionbutton "true" is.
Wat is wil is, bij een simpele klik op een optionbutton de bij die button behorende groupname achterhalen.

Vriendelijke groet,
Ruud.

 

[edmoor]

Nogal logisch, je gaat alle OptionButtons langs in plaats van alleen de aangeklikte.

 

[rudyV]

Je antwoord was mij inmiddels ook duidelijk
Het is ook duidelijk dat ik maar weinig op de hoogte ben van de 'ins and outs' van excel vba.
Kun je mij helpen met het antwoord op mijn vraag?

Vriendelijke groet,

Ruud.

 

[edmoor]

Een OptionButton is een lastige met een click vanwege de bedoeling van die knop, als je ook wilt dat bij die klik de waarde wordt veranderd.
Maar als je het zo doet werkt het wel:

Private Sub OptionButton1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    OptionButton1.Value = Not OptionButton1.Value
    MsgBox OptionButton1.GroupName
End Sub

 

[rudyV]

Dank je Edmoor,

Na twee dagen zoeken ben ik redelijk murw. Echter nu: blij.
Hier probeer ik mee verder te aan.

Groet, Ruud.

 

[edmoor]

Als je meerdere buttons in een groep hebt hoef je de waarde uiteraard niet te wijzigen, omdat er dan maar 1 "aan" kan zijn.

 

[rudyV]

Dat is het voordeel van de optionbutton inderdaad.

Ik ben op zoek naar de groupname omdat ik ongeveer 80 groepen heb van optionbuttons.
Elke groep staat voor een antwoord op een vraag (j,n, nvt).

Om nu voor elke buttonwijziging code te schrijven zou inhouden dat ik tot ver na mijn pensioen aan het tikken ben.
Ook komt het de overzichtelijkheid niet bepaald ten goede.
Wat ik wilde dus, is voor elke random click op een optionbutton via de daarmee verkregen Groupname gegevens weg te schrijven.

bij voorbeeld:

if groupname= "x" then
activecell.offset(,3)= "een waarde"

Met jouw code probeer ik dat nu te bereiken.

Dit ter verklaring
Groet, Ruud.

 

[edmoor]

Kijk eens naar dit voorbeeldje hoe je dat eenvoudig kan doen:
Bekijk bijlage Groep.xlsm

Dan heb je maar 1 functie die de juiste waarde uit de opgegeven groep terug geeft.

 

[rudyV]

Geweldig!

Ik stel het enorm op prijs, dank je wel.

Groet, Ruud.

 

[edmoor]

Graag gedaan.
En om hetgeen je aangaf in #6