Sub Zaehlen()
   Dim Zaehler As Integer
   Dim i As Integer
   For i = 1 To AnzahlCheckboxen
      If Checkbox1 = 0 Then
         Zaehler = Zaehler + 1
      End If
   Next i
End Sub

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

"Wer etwas will, sucht Wege.
Wer etwas nicht will, findet Gr?nde."