Hallo zusammen,
Ich habe in einer Schleife Option Buttons in ein Userform eingefügt.
Jetzt scheitere ich aber daran den Wert der Buttons auch auszulesen und zu übergeben.
Ich versuche den Button folgendermaßen anzusprechen:
z.B. msgbox UserForm_Abfrage.Controls.Frage_1.Radio1_1.Value
oder
msgbox UserForm_Abfrage.Controls.Radio1_1.Value
Beides ergibt "Objekt unterstützt diese Eigenschaft oder Methode nicht "
Die Buttons wurde so erstellt:
Dim buttoncounter As Single
For questioncounter = 0 To 6
For buttoncounter = 0 To 4
Dim rbutton As MSForms.Control
Set rbutton = UserForm_Abfrage.Controls.Add("Forms.optionbutton.1")
With rbutton
.Name = "Radio" & questioncounter + 1 & "_" & buttoncounter + 1
.Left = 190 + 45 * buttoncounter
.Top = 20 + 40 * questioncounter
.WordWrap = False
.AutoSize = True
.Visible = True
.Caption = buttoncounter + 1
.GroupName = "Frage_" & questioncounter + 1
.Value = True
Debug.Print .Name,
End With
Next
Next
Ich würde mich sehr über Hilfe freuen