Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CheckBox
BildScreenshot zu CheckBox CheckBox-Seite mit Beispielarbeitsmappe aufrufen

For Each CheckBox, Change Value

Betrifft: For Each CheckBox, Change Value von: Tobias
Geschrieben am: 04.03.2008 01:17:48

Hallo Forum,

ich hab da eine für euch sicherlich einfaches Problem:

Ich will über eine CheckBox den Status aller anderen CheckBoxen des Tabellenblatts steuern.
Hierzu bemühte ich folgenden code:

Dim cb As Object

If CheckBox1.Value = True Then
For Each cb In ActiveSheet.OLEObjects
If Left(cb.Name, 8) = "CheckBox" Then
If Len(cb.Name) = 9 Then
If Right(cb.Name, 1) "größer als" 4 Then
cb.Value = True
End If
Else: cb.Value = True
End If
End If
Next
End If

Allerdings lässt er mir das cb.Value nicht zu.

Könnt ihr mir bitte auf die Sprünge helfen - kommt grad einfach nicht auf die Lösung!

Danke & Gruß
Tobias

  

Betrifft: AW: For Each CheckBox, Change Value von: Heiko S.
Geschrieben am: 04.03.2008 07:48:14

Hallo Tobias,
du hast das Object vergessen, siehe hier:

Private Sub CheckBox1_Click()
Dim cb As Object
If CheckBox1.Value = True Then
    For Each cb In ActiveSheet.OLEObjects
        If TypeName(cb.Object) = "CheckBox" Then
            If (Len(cb.Name) = 9) And (Right(cb.Name, 1) >= 4) Then
                cb.Object.Value = True
            End If
        End If
    Next
End If
End Sub





Gruß Heiko

PS: Rückmeldung wäre nett !


 

Beiträge aus den Excel-Beispielen zum Thema "For Each CheckBox, Change Value"