OpenOffice.info

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

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

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

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

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]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[/code]

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