Hallo zusammen,
ich habe vor kurzem an einem VBA Kurs teilgenommen und versuche nun das Gelernte anzuwenden - also kurzum ich bin ein Rookie was VBA angeht.
Mein Problem:
Ich habe über VBA eine Pivot Tabelle erstellt und möchte Datenschnitte hinzufügen. Diese sind ausgegraut, bzw. ich bekomme eine Fehlermeldung.
Wenn ich in Excel über Pivot einfügen eine Pivot Tabelle erstelle kann ich die Datenschnitte einfügen.
Ich bin auf einige Hinweise bzgl. der Version gestoßen. Aber auch hier waren meine Versuche mit der Ergänzung Version 14 bzw. 16 nicht zielführend. Ich verwende Excel 2016.
Daher nun die Frage an Euch wo mein Fehler liegt? Hier mein Programm:
Sub Pivot()
Dim Quellbereich As Range, Zielbereich As Range, PT As PivotTable, PF As PivotField, PC As PivotCache
Set Quellbereich = Worksheets("Volumen").Range("A1").CurrentRegion
Worksheets.Add before:=Worksheets(1)
ActiveSheet.Name = "Pivot"
Set Zielbereich = Worksheets("Pivot").Range("B2")
Set PC = ActiveWorkbook.PivotCaches.Add(xlDatabase, SourceData:=Quellbereich)
Set PT = PC.CreatePivotTable(TableDestination:=Zielbereich, TableName:="Daten")
Set PF = PT.PivotFields("2020")
PF.Orientation = xlDataField
PF.Function = xlSum
PF.NumberFormat = "#,##0"
Set PF = PT.PivotFields("2021")
PF.Orientation = xlDataField
PF.Function = xlSum
PF.NumberFormat = "#,##0"
With ActiveSheet.PivotTables("Daten").DataPivotField
.Orientation = xlColumnField
.Position = 1
End With
ActiveWorkbook.SlicerCaches.Add2(ActiveSheet.PivotTables("Daten"), "Marke").Slicers.Add ActiveSheet, , "Marke 1", "Marke", 180, 529.5, 144, 187.5
End Sub
|