Thema: CheckBoxes als Serie

Home

10 Checkboxes sollen als Serie aktiviert und deaktiviert werden. CheckBoxes als Serie

Prozedur: cmdTrue_Click
Art: Ereignis
Modul: Klassenmodul der UserForm
Zweck: Prozedur zum Wertefestlegen mit Parameter aufrufen
Ablaufbeschreibung:
- Prozedur zum Wertefestlegen mit dem Parameter True aufrufen

Code:


Private Sub cmdTrue_Click()
   Call Switch(True)
End Sub

Prozedur: cmdFalse_Click
Art: Ereignis
Modul: Klassenmodul der UserForm
Zweck: Prozedur zum Wertefestlegen Parameter aufrufen
Ablaufbeschreibung:
- Prozedur zum Wertefestlegen mit dem Parameter False aufrufen

Code:


Private Sub cmdFalse_Click()
   Call Switch(False)
End Sub

Prozedur: cmdFalse_Click
Art: Sub
Modul: Klassenmodul der UserForm
Zweck: Werte der CheckBoxes festlegen
Ablaufbeschreibung:
- Variablendeklaration
- Schleife starten
- CheckBox-Werte gemäß Parameter festlegen

Code:


Private Sub Switch(bln As Boolean)
   Dim iCounter As Integer
   For iCounter = 1 To 10
      Controls("CheckBox" & iCounter).Value = bln
   Next iCounter
End Sub