For each - zählt falsch ?!
06.09.2007 09:00:20
Roland
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