ich habe für eine Aufgabenliste einige CheckBoxes erstellt. Also Aufgabe erledigt, Haken rein.
Wie kann ich bei allen den Haken auf einmal wieder rausnehmen ?
Gruß
Jutta
Sub Kontrollkästchen_aus()
Dim ole As OLEObject
For Each ole In Sheets(1).OLEObjects
If TypeName(ole.Object) = "CheckBox" Then ole.Object.Value = False
Next ole
End Sub
Gruss Walnurga
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