Teilergebnisse per Makro [Lösung]

Antwort erstellen

BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: Teilergebnisse per Makro [Lösung]

Teilergebnisse per Makro [Lösung]

von MikeRo » Mi, 12.01.2011 16:29

Hallo,
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

Nach oben