Thema: CheckBoxes in Schleife einbinden

Home

Die Werte der ersten 5 CheckBoxes werden beim UserForm-Aufruf auf True gesetzt, wobei die CheckBoxes in eine Schleife eingebunden werden.

Prozedur: UserForm_Initialize
Art: Ereignis
Modul: Klassenmodul der UserForm
Zweck: CheckBoxes in Schleife einbinden
Ablaufbeschreibung:
- Variablendeklaration
- Eine Schleife bilden
- Aktueller CheckBox den Wert TRUE zuweisen

Code:


Private Sub UserForm_Initialize()
   Dim iCounter As Integer
   For iCounter = 1 To 5
      Controls("CheckBox" & iCounter).Value = True
   Next iCounter
End Sub