Hallo Leute,

vermutlich sehen ich den Wald vor lauter Bäume nicht

Ich kann zwar mit folgenden eine eingebettet Tabelle bearbeiten aber wie erzeuge ich eine Neue?

Sub DisplayInExcel()
Dim oWordDoc As Word.Document
oWordDoc = Globals.ThisAddIn.Application.ActiveDocument
Dim oOLE As Excel.Workbook
oOLE = Nothing
Dim oSheet As Excel.Worksheet
oSheet = Nothing
Dim ils As Word.InlineShapes
ils = oWordDoc.InlineShapes

'oOLE.Application.Workbooks.Add(1)
ils(1).OLEFormat.Activate()
oOLE = ils(1).OLEFormat.Object

oSheet = oOLE.Worksheets(1)
oSheet.Range("A1").Value = " YES"

End Sub
End Class

Grüße aus Bayern,

Bitfox