Tabellenzeile im Writer-Dokument einfügen

[Shirkan]

Liebe Leute, ich möchte in einem Writer-Dokument in einer bestehenden Tabelle eine Zeile einfügen. Kann mir jemand einen Tipp geben wie das funktionieren kann? Danke Gruß Markus

[Shirkan]

Also, ich habe da mittlerweile etwas gefunden. Jetzt stehe ich nur vor dem Problem, dass ich in eine Zelle eine berechnende Funktion einfügen möchte. Der Code wird in der Zelle leider nur als Text dargestellt. Irgendwie muss ich ihm noch sagen, dass er berechnen soll.
Gruß Markus

Code: Alles auswählen

Sub Main

Dim Table
Dim oRows As Object

	Tables = ThisComponent.getTextTables
   
    'Zeile einfügen
	Table=Tables.getbyName("Saldo")
	oRows=Table.getRows
	oRows.InsertByIndex(2,2)
   
    'Text einfügen
    'Index beginnt bei 0
    'erster Index bezeichnet die Spalte, der zweite die Zeile
	Table.getCellbyPosition(2,2).string = "=<Berechnung.D6>-sum(<C1:C2>)"
	
End Sub

[Shirkan]

Sorry, für die Aufregung es muss heißen:

Code: Alles auswählen

Table.getCellbyPosition(2,2).Formula = "=sum(<C1:C2>)"