hier mal ein Beitrag von mir, die Teilergebnisse über ein Makro.
Code: Alles auswählen
Sub Teilergebnisse
dim TeileERG as object
dim TeilSubTotDesc
dim TeilSpalten(4) as new com.sun.star.sheet.SubTotalColumn
TeileERG = thiscomponent.sheets.getByName("Sheet1").getCellRangeByName("A1:G60000")
TeilSubTotDesc = TeileERG.createSubTotalDescriptor(true)
'Summe der angegebenen Spalten
TeilSpalten(0).Column = 2
TeilSpalten(0).Function = com.sun.star.sheet.GeneralFunction.SUM
TeilSpalten(1).Column = 3
TeilSpalten(1).Function = com.sun.star.sheet.GeneralFunction.SUM
TeilSpalten(2).Column = 4
TeilSpalten(2).Function = com.sun.star.sheet.GeneralFunction.SUM
TeilSpalten(3).Column = 5
TeilSpalten(3).Function = com.sun.star.sheet.GeneralFunction.SUM
TeilSpalten(4).Column = 6
TeilSpalten(4).Function = com.sun.star.sheet.GeneralFunction.SUM
'Group by: Spalte 2
TeilSubTotDesc.addNew(TeilSpalten(), 1)
TeileERG.applySubTotals(TeilSubTotDesc, true)
end sub