VBA Code Tabellenbenennung
03.08.2005 19:18:41
Philipp
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