For each - zählt falsch ?! | HERBERS Excel Forum

Hallo
Ich hab da ein Problem mit einer For each Schleife die wie folgt ausschaut:

Public Sub UserForm_Fuellen()
Dim strMesswert As String
Dim i As Integer
Dim ctOptButton2 As Control
Set ctOptButton2 = UserForm1.fraMesswert2()
i = 49
For Each ctOptButton2 In UserForm1.fraMesswert2.Controls
'MsgBox ctOptButton2.Name
'MsgBox strMesswert
ctOptButton2.Caption = strMesswert
i = i + 1
Next
Eigentlich sollten doch die Objekte im Frame anhand des Name-Feldes durchlaufen werden, oder?
Die Objekte heissen:
OptionButton28
OptionButton29
OptionButton30
OptionButton31
..
OptionButton40
..
OptionButton50
OptionButton51
OptionButton52
Doch wenn ich das Makro laufen lasse und mir mit hilfe der MsgBox die Namen des jeweils ausgelesenen Objekts anzeigen lasse, stelle ich fest das die Reihenfolge folgende ist;
OptionButton30
OptionButton40
OptionButton28
OptionButton29
OptionButton31
..
OptionButton39
OptionButton41
..
OptionButton51
Woran könnte das liegen? Seltsamerweise funktioniert es bei OptionButton1 - 27 in der richtigen Reihenfolge!
Vielen Dank für euere Hilfe

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Roland,
wie von Bernd schon erwähnt wird die Reihenfolge von Steuerelementen in der Controls-Liste beim Anlegen der Elemente festgelegt unabhängig vom Typ und Namen. Auch durch nachträgliches ändern des Namens eines Steuerelements ändert sich die Reihenfolge nicht mehr.
Wenn du vielen Steuerelementen Wert/Eigenschadften über Schleifen zuweisen möchtest, dann geht das meist nur noch über den Namen. Sinnvoller Weise legt man für diese Steuerelemente im Eigenschaftenfenster dann auch besondere Namen fest, die man dann von 1 bis x fortlaufend durchnummeriert (ohne Lücken!!!!). (z.B: OB_Messwert1, OB_Messwert2 usw.). So kann man die Elemente direkt ansprechen.
Ändere deine Prozedur wie folgt, dann sollte die Zuordnung funktionieren. In ähnlicher Weise kann man dann ggf. auch die Eigenschaften der Steuerelemnte einer sollchen Gruppe zur Formularauswertung abfragen.
Gruß
Franz


Public Sub UserForm_Fuellen()
Dim strMesswert As String
Dim i As Integer
Dim ctOptButton2 As Control
i = 49
For Z = 1 To UserForm1.fraMesswert2.Controls.Count
Select Case Z
Case 0 'hier Ausnahmen, Nummern oder Nummernbereich festlegen
'do nothing
Case Else
strMesswert = Application.ActiveWorkbook.Sheets("Tabelle1").Cells(i, 2).Value
Set ctOptButton2 = UserForm1.Controls("OptionButton" & Format(Z, "0"))
ctOptButton2.Caption = strMesswert
If MsgBox("Name-Button: " & ctOptButton2.Name & vbLf & _
"Wert-Zelle: " & strMesswert, vbOKCancel) = vbCancel Then Exit For
i = i + 1
End Select
Next
End Sub

Beliebteste Forumthreads (12 Monate)

For each - zählt falsch ?!

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

For each - zählt falsch ?!

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread