Sub CreatePivotTable ()
'
Strecke („A1“). Auserwählt
Selection.CurrentRegion.Select
ActiveSheet.PivotTableWizard SourceType: =xlDatabase, SourceData: = _
„„Rohe tatsächliche Daten“! R1C1: R3286C6“, TableDestination: = "", TableName: = _
„PivotTable2“
ActiveSheet.PivotTables („PivotTable2“) .SmallGrid = falsch
ActiveSheet.PivotTables („PivotTable2“) .AddFields RowFields: =Array („Abteilung“, _
„Natürliches Kategorie B "" (GDE) """, „Dept2“)
Mit ActiveSheet.PivotTables („PivotTable2“) .PivotFields („Wirklichkeiten“)
. Lagebestimmung = xlDataField
. Name = „Summe Wirklichkeiten“
. Funktion = xlSum
Ende mit
ActiveSheet.Name = „Wirklichkeits-Gelenk-Tabelle“
Enden-Unterseeboot
|