|
Sub test2()
Quelle = "C:\Users\******\Desktop\test3.xlsm"
Dim ExcelObj As New Excel.Application
Dim ExcelObjSheet As Object
ExcelObj.Workbooks.Open Quelle
Set ExcelObjSheet = ExcelObj.Worksheets("Tabelle1")
Set Zieltabelle = ActiveSheet
Zieltabelle.Shapes("Check Box 1").ControlFormat.Value = _
Workbooks("test3").Worksheets("Tabelle1").Shapes("Check Box 1").ControlFormat.Value
Ich habs auch mit OLEFormat.Object.Value probiert. so oder so kommt keine fehlermeldung mehr aber der makro macht nichts. Hab auch versucht Workbooks("test3".... mit ExcelObjSheet ausgetauscht wie ich es definiert habe macht aber ja eig. auch kein Unterschied.
|