ich bin ein Anfänger und bräcuhte Eure hilfe.
Kann mir jemand sagen wie ich über eine Schleife überprüfen kann ob eine Checkbox angeklickt ist?
Ich möchte die 55 Abfragen nicht alle einzeln auflisten.
Gruß und Danke im Voraus
Ferry
Private Sub CommandButton1_Click()
Dim I As Integer
For I = 1 To Shapes.Count
If Mid(Shapes(I).Name, 1, 5) = "Check" Then
' Ausblenden
' Shapes(I).Visible = Shapes(I).Visible = False
' wechseln
' Shapes(I).Visible = Shapes(I).Visible = Shapes(I).Visible = Shapes(I).Visible = False
' Wert auf True setzen
' ActiveSheet.OLEObjects("CheckBox" & I).Object.Value = 1
' Inhalt wechseln
' ActiveSheet.OLEObjects("CheckBox" & I).Object.Value = ActiveSheet.OLEObjects("CheckBox" & I).Object.Value = 0
' nur eine Gruppe
If ActiveSheet.OLEObjects("CheckBox" & I).Object.GroupName = "Sorte1" Then
Shapes(I).Visible = Shapes(I).Visible = False
End If
End If
Next I
End Sub