Thema: CheckBoxes zählen

Home

Die CheckBoxes der UserForm werden in eine Schleife eingebunden und gezählt.

Prozedur: cmdCount_Click
Art: Ereignis
Modul: Klassenmodul der UserForm
Zweck: CheckBoxes zählen
Ablaufbeschreibung:
- Variablendeklaration
- Eine Schleife über alle Steuerelemente der UserForm bilden
- Wenn es sich um eine ChecBox handelt, den Zähler um eins hochzählen
- Meldung mit der Anzahl der gefundenen CheckBoxes

Code:


Private Sub cmdCount_Click()
  Dim cnt As Control
  Dim iCount As Integer
  For Each cnt In Controls
    If TypeName(cnt) = "CheckBox" Then iCount = iCount + 1
  Next cnt
  MsgBox "Diese UserForm besitzt " & iCount & " CheckBoxes!"
End Sub