Pivot-Tabelle Makro funktioniert nicht (Fehler 1004: Anwendung definiert oder Objekt definiert Fehler)

Question

Ich erstelle eine Pivot-Tabelle auf dem Makrorecorder und aus irgendeinem Grund mein Makro gibt mir diesen Fehler. Ich habe andere SO-Probleme bei diesem ähnlichen Fehler gelesen, aber keine der Lösungen scheint zu funktionieren. Hier ist der Code

Sub macro5() 
' 
' macro5 Macro 
' 

' 
    Sheets.Add 
    ActiveWorkbook.Worksheets("Pivot").PivotTables("PivotTable1").PivotCache. _ 
     CreatePivotTable TableDestination:="Sheet5!R3C1", TableName:="PivotTable3" _ 
     , DefaultVersion:=xlPivotTableVersion12 
    Sheets("Sheet5").Select 
    Cells(3, 1).Select 
    With ActiveSheet.PivotTables("PivotTable3").PivotFields("Employee/app.name") 
     .Orientation = xlRowField 
     .Position = 1 
    End With 
    ActiveSheet.PivotTables("PivotTable3").AddDataField ActiveSheet.PivotTables(_ 
     "PivotTable3").PivotFields("  Hours"), "Sum of  Hours", xlSum 
End Sub 

ERROR HIER

ActiveWorkbook.Worksheets("Pivot").PivotTables("PivotTable1").PivotCache. _ CreatePivotTable TableDestination:="Sheet5!R3C1", TableName:="PivotTable3" _ , DefaultVersion:=xlPivotTableVersion12 

Answer 1

Versuchen Sie, die Pivot-Cache zuerst und dann die Pivot-Tabelle zu erstellen. Beispielcode-Snippet unten. Denken Sie auch daran, dass die Zielblätter bei jeder Ausführung ein eindeutiger Name sein müssen.

ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _ 
    "Pivot!R2C2:R6C5", Version:=xlPivotTableVersion14).CreatePivotTable _ 
    TableDestination:="Sheet5!R3C1", TableName:="PivotTabletest", DefaultVersion:=xlPivotTableVersion12