Suchergebnisse (1 Treffer, 1 Begriff) 
Kategorie: 
Wie kann man alle CheckBoxes einer UserForm in eine For/Next-Schleife einbinden?
Der Code durchläuft alle Elemente der Userform und wenn der Typ eine Checkbox ist, wird die Caption geändert.
Private Sub UserForm_Initialize() Dim ChBox As Control Dim intI As Integer For Each ChBox In UserForm1.Controls If UCase(TypeName(ChBox)) = "CHECKBOX" Then intI = intI + 1 ChBox.Caption = "MeineCheckbox " & intI End If Next ChBox End Sub
Es gibt noch andere Möglichkeiten. Wer seine Steuerelemente konsequent benennt und als Präfix eine eindeutige Zeichenfolge (z. B. chkMeineBox) verwendet, kann auch das abfragen. Oder wenn die Steuerelemente per Tag-Eigenschaft gruppiert sind, geht das natürlich auch. Und die höhere Kunst wäre eine eine eigene Klasse für die Elemente.