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