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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen