Wie spreche ich eine CheckBox mit ihrem Index an? Ich habe 50 checkboxen und möchte bei einigen den namen ändern:
Sub changeName (i As Integer, wert As String)
If i = 1 Then
UserForm1.CheckBox1.Caption = wert
End If
If i = 2 Then
UserForm1.CheckBox2.Caption = wert
End If
.....
If i = 50 Then
UserForm1.CheckBox50.Caption = wert
End If
End Sub
Der obige Code ist ziemlich ineffizient, eine addressierung über den Index bekomme ich nicht hin, habe mir so etwas vorgestellt wie:
UserForm1.CheckBox(i).Caption = wert
Allerdings funktioniert es nicht :( und 50 If-Schleifen sind nicht optimal. Benutze Word 2010.
Gruß Julia
|