OpenOffice.info

REM*****BASIC*****
Sub setTableSumRow
Dim oVCurs
Dim oCurCell
Dim oTable
Dim lCount as Long ' Row counter

oVCurs = ThisComponent.getCurrentController().getViewCursor()

REM Is the cursor in a table?
If IsEmpty(oVCurs.TextTable) Then
Print "The cursor is NOT in a table"
Exit Sub
End If

oTable = oVCurs.TextTable
lCount= oTable.getRows.Count 

oCell = oTable.getCellByPosition(1,0)
oCell.setFormula ("=Sum <B2:B" & lCount & ">" )
End Sub

[quote="quarkus"]Geht das?[/quote]

Eine solche Funktion ist nicht eingebaut, aber...

Wenn es um die Ausgabe der Summe in der Kopfzeile einer WRITER-Tabelle geht, dann hab' ich ein Makro dafür

[code]REM*****BASIC*****
Sub setTableSumRow
Dim oVCurs
Dim oCurCell
Dim oTable
Dim lCount as Long ' Row counter

oVCurs = ThisComponent.getCurrentController().getViewCursor()

REM Is the cursor in a table?
If IsEmpty(oVCurs.TextTable) Then
Print "The cursor is NOT in a table"
Exit Sub
End If

oTable = oVCurs.TextTable
lCount= oTable.getRows.Count

oCell = oTable.getCellByPosition(1,0)
oCell.setFormula ("=Sum <B2:B" & lCount & ">" )
End Sub[/code]


In der letzten Zeile ist natürlich noch die Formel zu ändern.
Ausserdem der Spaltenindex in [color=#008000].getCellByPosition[/color]: 1=B, 4=E


Kommst Du damit zurecht?

Hallo.
Ich habe eine wahrscheinlich relativ triviale Frage auf die ich allerdings bisher nirgens eine Antwort gefunden habe.
Ich möchte (autmomatisch) über alle Zeilen einer Spalte in einer Tabelle eine Summe ziehen.

Im Moment habe ich in meinem Summenfeld folgendes stehen:
=sum(<Leistungen.E2:E6>)

Ich hätte gern so was wie:
=sum(<Leistungen.E2:E(ANZAHL-DER-ZEILEN-IN-E)>)
damit ich nicht jedesmal meine summenfunktion anpassen muss wenn ich zeilen hinzufüge oder lösche.

Geht das?

Danke.
Markus