ich erzeuge dynamisch in einer Userform etliche Checkboxen. Gibt es hier eine max. Beschränkung? ab der 2ten erhalte ich kein Auswertergebniss mehr, obwohl die Box angezeigt wird
Dank im Voraus
Private Sub UserForm_Initialize()
Dim lbl As MSForms.Label
Dim lblZeit As MSForms.Label
Dim lblEntf As MSForms.Label
Dim iReihe As Integer
Dim ChB2 As MSForms.CheckBox
Dim ChB As MSForms.CheckBox
Dim i As Integer
Dim f As Variant
Dim k As Integer
Dim izLap As Integer
Dim zz As Integer
k = 0
For i = 1 To iCountLap ' wert von 10-50
izLap = 1 + (i - 1) \ 10
zz = i
Select Case izLap
Case 1: zz = zz
iReihe = 1
Case 2: zz = zz - 10
iReihe = 2
Case 3: zz = zz - 20
iReihe = 3
Case 4: zz = zz - 30
iReihe = 4
Case 5: zz = zz - 40
iReihe = 5
End Select
Set lbl = Me.Controls.Add("forms.Label.1", "lbl" & i, True)
With lbl
.Left = 42 + (120 * (iReihe - 1))
.Top = 33 + 25 * (zz - 1)
.Width = 10
.Caption = i
End With
Set lblZeit = Me.Controls.Add("forms.Label.1", "lblZeit" & i, True)
With lblZeit
.Left = 70 + (120 * (iReihe - 1))
.Top = 33 + 25 * (zz - 1)
.Width = 30
.Caption = asngPaceM(k + 1) & ":" & asngPaceS(k + 1)
End With
Set ChB = Me.Controls.Add("forms.checkbox.1", "ChB" & i, True)
With ChB
.Left = 95 + (120 * (iReihe - 1))
.Top = 31 + 25 * (zz - 1)
.Width = 30
.Caption = ""
End With
Set ChB2 = Me.Controls.Add("forms.checkbox.1", "ChB2" & i, True)
With ChB2
.Left = 105 + (120 * (iReihe - 1))
.Top = 31 + 25 * (zz - 1)
.Width = 30
.Caption = ""
' .Locked = True
End With
Set lblEntf = Me.Controls.Add("forms.Label.1", "lblentf" & i, True)
With lblEntf
.Left = 120 + (120 * (iReihe - 1))
.Top = 33 + 25 * (zz - 1)
.Width = 60
.Caption = asngDist(k + 1)
End With
k = k + 1
Next i
End Sub