Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CheckBox
BildScreenshot zu CheckBox CheckBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-Seite mit Beispielarbeitsmappe aufrufen

anzahl Kontrollkästchen in UserForm prüfen | Herbers Excel-Forum


Betrifft: anzahl Kontrollkästchen in UserForm prüfen von: René
Geschrieben am: 17.02.2012 11:29:28

Hallo liebe Excelgemeinde,

ich möchte in einer Userform prüfen ob mindestens 3 Kontrollkästchen angekreuzt wurden.

Dazu habe ichmir folgenden Code geschrieben. Leider werden die Objekte aber nicht erkannt.

Kann mir jemand einen Tip geben was ich da falsch mache???

MfG René

Private Sub CommandButton1_Click()
   Dim obj As OLEObject 'variablen deklarieren
    Dim i As Long
    
    For Each obj In UserForm2.OLEObjects 'Für alle "Ole Objekte" in der auflistung aller ole  _
objekte im tabellenblatt 1
        If obj.progID Like "Forms.CheckBox*" Then 'prüfen ob es sich um eine checkbox handelt
            If obj.Object.Value = True Then 'prüfen ob die checkbox angekreuzt ist
                i = i + 1 'wenn angekreuzt, dann zählen.
            End If
        End If
    Next obj 'weiter zum nächsten ole objekt in der auflistung

If i = "3" Then

    MsgBox "Anzahl der angekreuzten Checkboxen: " & i 'ausgabe

    End If
    
End Sub

  

Betrifft: AW: anzahl Kontrollkästchen in UserForm prüfen von: Rudi Maintaire
Geschrieben am: 17.02.2012 11:39:20

Hallo,
in einer UF ist es die Controls-Auflistung.

Private Sub CommandButton1_Click()
  Dim obj As Object 'variablen deklarieren
  Dim i As Long
  
  For Each obj In Controls 'Für alle Controls in der UF
    If TypeName(obj) = "CheckBox" Then 'prüfen ob es sich um eine checkbox handelt
      i = i - obj.Value
    End If
  Next obj 'weiter zum nächsten Control in der auflistung

  If i = 3 Then
    MsgBox "Anzahl der angekreuzten Checkboxen: " & i 'ausgabe
  End If

End Sub

Gruß
Rudi


  

Betrifft: AW: anzahl Kontrollkästchen in UserForm prüfen von: René
Geschrieben am: 17.02.2012 11:51:20

Hallo Rudi,
vielen Dank für den sehr guten Hinweis. Es funktioniert SUPER.
Herzlichen Dank noch mal.
MfG René


Beiträge aus den Excel-Beispielen zum Thema "anzahl Kontrollkästchen in UserForm prüfen"