Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
580to584
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
580to584
580to584
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
OptionButtons in einer Schleife abfragen
11.03.2005 09:42:17
WHN
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: OptionButtons in einer Schleife abfragen
11.03.2005 10:56:47
Heiko
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 !
AW: OptionButtons in einer Schleife abfragen
11.03.2005 10:59:48
bst
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

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

178 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige