Excel und VBA: Formeln, Programmierung, Lösungen

ClassModule: frmCheckBoxWerte

Private Sub cmdWeiter_Click()
  Unload Me
End Sub

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

StandardModule: basMain

Sub CallForm()
   frmCheckBoxWerte.Show
End Sub

    

Beiträge aus dem Excel-Forum zu den Themen Dialog und CheckBox