Thema: CheckBox-Werte ermitteln

Home

Die Werte der CheckBoxes werden abgefragt.

Prozedur: cmdAbfragen_Click
Art: Ereignis
Modul: Klassenmodul der UserForm
Zweck: CheckBox-Werte ermitteln
Ablaufbeschreibung:
- Variablendeklaration
- Eine Schleife über alle Steuerelemente bilden
- Wenn die linken 8 Zeichen des Namens auf CheckBox lauten...
- Zähler um eins hochzählen
- Array neu dimensionieren, wobei die alten Werte beibehalten werden
- Den Wert der aktuellen CheckBox in das Array einlesen
- Eine Schleife über alle Array-Datenfelder bilden...
- Wenn das Datenfeld den Wert Wahr hat...
- CheckBox melden

Code:


Private Sub cmdAbfragen_Click()
   Dim cnt As Control
   Dim iValues As Integer
   Dim arr() As Boolean
   For Each cnt In Controls
      If Left(cnt.Name, 8) = "CheckBox" Then
         iValues = iValues + 1
         ReDim Preserve arr(iValues)
         arr(iValues) = cnt.Value
      End If
   Next cnt
   For iValues = 1 To UBound(arr)
      If arr(iValues) = True Then
         MsgBox "CheckBox Nr. " & iValues & " aktiviert!"
      End If
   Next iValues
End Sub