UserForm angeklickte CheckBoxen zählen

Frage: In einer UserForm habe ich viele CheckBoxen. Wie kann ich entweder über den Typ oder über eine Zählvariable alle angeklickten CheckBoxen zählen?

Option Explicit
Private Sub CommandButton1_Click()
    Dim objCheckBox As Object
    Dim intTMP As Integer
    For Each objCheckBox In Me.Controls
        If TypeName(objCheckBox) = "CheckBox" Then
            If objCheckBox.Value = True Then
                intTMP = intTMP + 1
            End If
        End If
    Next objCheckBox
    MsgBox intTMP & " CheckBox(en) angehakt."
End Sub
Option Explicit
Private Sub CommandButton2_Click()
    Dim intCount As Integer
    Dim intTMP As Integer
    For intCount = 1 To 3
        If Me.Controls("CheckBox" & intCount).Value = True Then
            intTMP = intTMP + 1
        End If
    Next intCount
    MsgBox intTMP & " CheckBox(en) angehakt."
End Sub

Beliebte Posts aus diesem Blog

Formeln - auch Array - per VBA eintragen...

Alle Dateien eines Ordners - Optional mit Unterordner

Excel -> Word in Textmarken (Bookmarks)...