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"