Zählen von nur aktivierten Checkboxen in User Form
nur
ich habe in einer User Form 90 Checkboxen. Ich möchte erreichen, dass XLS die aktivierten zählt und bei weniger oder mehr als 18 die Fehlermeldung ausgibt. Wie kann ich den Befehl geben, dass nur aktivierte Checkboxen gezählt werden. Den aktuellen Stand habe ich angehängt. Danke für jede Rückmeldung.
Gruß aus Korea
Private Sub Validation()
Dim cnt As Control
Dim icount As Integer
For Each cnt In Controls
If TypeName(cnt) = "CB_" Then icount = icount + 1
Next cnt
If icount = 18 Then
MsgBox ("Your data inputs were saved")
Else: MsgBox ("There a too less or many data inputs. Please check it again.")
End If
End Sub