OLEObjekt
19.06.2018 13:54:03
Siegfried
ich habe in einem TabellenBlatt 3 Kontrollkästchen,
diese möchte ich beim Öffnen der Datei auf FALSCH setzen.
In der Hilfe finde ich den folgenden Code, der bei mir aber nicht funktioniert.
Wie muss ich es richtig anstellen?
Private Sub Workbook_Open()
Dim OLEObjects As Variant
Dim oOle As OLEObject
Worksheets(1).Activate
For Each oOle In ActiveSheet.OLEObjects
If TypeName(oOle.Object) = "CheckBox" Then
Debug.Print oOle.Name & ": " & oOle.Object.Value
End If
Next oOle
End Sub
Gruß
Siegfried