OptionButtons in einer Schleife abfragen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: OptionButtons in einer Schleife abfragen
von: WHN
Geschrieben am: 11.03.2005 09:42:17
Hallo Leute,
ich möchte den Zustand von 15 OptionButtons und 15 CheckBoxen in einer Schleife
Abfragen, außerdem möchte ich auch die Namen der CheckBoxen zuweisen.
Leider klappt es nicht so wie ich es mir vorstelle.
Hier mein Versuch:
Dim Name(1 to 15) as String
Dim i as Integer
Name(1) = "....": Name(2) = "...." 'usw.
For i = 1 to 15
If UserForm1.OptionButton(i).Value then ....
UserForm1.CheckBox(i).Caption = Name(i)
Next i
Kann mir hier Jemand weiterhelfen.
Vielen Dank schon mal.
Freundliche Grüße
Werner

Bild

Betrifft: AW: OptionButtons in einer Schleife abfragen
von: Heiko S.
Geschrieben am: 11.03.2005 10:56:47
Hallo
wenn deine Button von 1 bis 15 durchnummeriert sind, dann z.B. so.
Hiermit werden alle 15 auf False (nicht angewählt) gesetzt.
Müsstest du dir für deinen Code anpassen.

Private Sub CommandButton3_Click()
Dim intIndex As Integer
    For intIndex = 1 To 15
        Userform1.Controls("OptionButton" & CStr(intIndex)).Value = False
    Next
End Sub


Gruß Heiko

PS: Rückmeldung wäre nett !
Bild

Betrifft: AW: OptionButtons in einer Schleife abfragen
von: bst
Geschrieben am: 11.03.2005 10:59:48
Morgen Werner,
nimm sowas Userform1.Controls(index) bzw. Userform1.Controls("name").
Oder, IMHO besser laufe über alle Controls.
HTH, Bernd
--

Private Sub UserForm_Initialize()
   Dim ctrl As MSForms.Control
   
   For Each ctrl In Controls
      If TypeOf ctrl Is MSForms.CheckBox Then
         Debug.Print "Checkbox", ctrl.Name, ctrl.Value
      ElseIf TypeOf ctrl Is MSForms.OptionButton Then
         Debug.Print "OptionButton", ctrl.Name, ctrl.Value
      End If
   Next
End Sub

Bild

Betrifft: AW: Danke jetzt läuft es super
von: WHN
Geschrieben am: 11.03.2005 13:00:29
Danke an Bernd und Heiko,
läuft alles prima, euere Tipps haben mir gut geholfen.
Viele Grüße
Werner
 Bild

Beiträge aus den Excel-Beispielen zum Thema "OptionButtons in einer Schleife abfragen"