Hallo habe hier ein mit dem Macro Recorder aufgezeichneten Code zur Erstellung einer Pivot Tabelle. Excel generiert sich bei jedem Ausführen eine neues Tabellenblatt! Sonst hat es irgendwie nie funktionier wenn ich im das TAbellenblatt 2 zugewiesen habe! Wie kann man den Code verändern, das er die neue Tabelle Pivot nennt!
Und schön wäre auch noch ein seperater code zum lösen der selbigen mit einem neuen Makro!
Hier mein Code:
Tastenkombination: Strg+a
'
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Tabelle1!R1C1:R41C5").CreatePivotTable TableDestination:="", TableName:= _
"PivotTable1", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
ActiveSheet.PivotTables("PivotTable1").AddFields RowFields:=Array("AuflStufe" _
, "Hauptprozess", "Unterprozess", "Daten")
With ActiveSheet.PivotTables("PivotTable1").PivotFields("Prozesszeit")
.Orientation = xlDataField
.Position = 1
End With
ActiveSheet.PivotTables("PivotTable1").PivotFields("UnterprMenge").Orientation _
= xlDataField
ActiveWorkbook.ShowPivotTableFieldList = False
ActiveSheet.PivotTables("PivotTable1").PivotFields("AuflStufe").Subtotals = _
Array(False, False, False, False, False, False, False, False, False, False, False, False)
ActiveSheet.PivotTables("PivotTable1").PivotSelect "", xlDataAndLabel, True
ActiveSheet.PivotTables("PivotTable1").Format xlReport2
Range("B3").Select
ActiveSheet.PivotTables("PivotTable1").PivotFields("Hauptprozess").Subtotals = _
Array(False, False, False, False, False, False, False, False, False, False, False, False)
Application.CommandBars("PivotTable").Visible = False
End Sub
Danke Philipp