[VBA & MS Excel] GroupName van OptionButtons

[Verwijderd]

Hey beste wizzies,

Ik heb een excel workbook met een userform.
In Sheet1 staat in de volgende cellenreeks (A1:A10) namen van mensen.
Wanneer ik een update button klik, krijg ik de userform.
In de userform staan 10 OptionButtons met de waarden van (A1:A10)
Vervolgens selecteer ik OptionButton3 (de waarde van Cell A3 "Peter")
En klik op de knop next.
Wat ik nu wil is dat in een andere sheet("Sheet2"), in cell A1 de waarde van OptionButton3 opgeslagen wordt ("Peter", daar ik deze ook in de userform heb gekozen).
Alleen weet ik niet hoe ik dit moet doen .

Ik weet dat het moet beginnen met:
Worksheets("Sheet2").[A1] = "en dan hier de rest met de GroupName: {selected_name}"

Dus uiteindelijk moet de waarde wat in Sheet1

[onkl]

Aannemende dat je je optionbuttons iets als "option 1" t/m "option 10" hebt genoemd (.name) en je caption "Peter", "Pietje" etc is:

code:

Private Sub CommandButton1_Click()
Dim element As Control
Dim tekst As String

For Each element In Me.Controls
    If Left(element.Name, 4) = "Opti" Then
        If element.Value = True Then tekst = element.Caption
    End If
Next element
MsgBox tekst
'Activeworkbook.Worksheets("Sheet2").cells(1,1).value = tekst
End Sub

[ Voor 12% gewijzigd door onkl op 24-11-2004 14:46 ]

[Verwijderd]

Jah dat is hem helemaal!!!
Bedankt kerel!!
Je hebt me goed geholpen!!

(/me is blij lid te zijn van GOT )