IV 2012 sei Dank! Ich hab's mittlerweile mit iLogic gelöst.
GoExcel.Open("Abstand.xls", "Tabelle1") 'Excel Tabelle muss vorhanden sein, sorry!
GoExcel.CellValue("A1")="Winkel"
GoExcel.CellValue("B1")="Abstand"
For i = 0 To 90
i_zeile = 2+i 'Beginn in Zeile 2
w_zelle="A"&i_zeile 'Zelle A2 für Winkel
a_zelle="B"&i_zeile 'Zelle B2 für Abstand
winkel = 90+i 'Anfangswinkel = 90°
Parameter("d11") = winkel
InventorVb.DocumentUpdate()
ThisApplication.ActiveView.Update()
'MsgBox(winkel & "/" & Parameter("tmp_Abstand:1", "d1"))
GoExcel.CellValue(w_zelle)=winkel
GoExcel.CellValue(a_zelle)=Parameter("tmp_Abstand:1", "d1")
Next i
GoExcel.Save
GoExcel.Close
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP