Guten Morgen !
Mit nachstehendem Code setze ich in einem Formular alle Kontrollkästchen auf "TRUE" und anschließend 2 wieder auf "FALSE"
Private Sub CommandButton3_Click()
Dim CBO As OLEObject
For Each CBO In ActiveSheet.OLEObjects
If Left(CBO.progID, 11) = "Forms.Check" Then
CBO.Object.Value = True
End If
Next
ThisWorkbook.Worksheets("B-Check").CheckBox17.Value = False
ThisWorkbook.Worksheets("B-Check").CheckBox25.Value = False
End Sub
Bei der Abwahl dieser 2 Kontrollkästchen bricht er mit der Fehlermeldung "Index außerhalb des gültigen Bereichs" ab.
Seltsamerweise funktioniert es in einem anderen Formular problemlos.
Die Kontrollkästchen sind Steuerelemente (ActiveX)
Kann mir da mal jemand auf die Sprünge helfen ?
Gruß
Rainer
|