Hallo in die Runde,

ich möchte per VBA eine Pivottabelle erstellen, bekomme aber immer einen Fehler (Laufzeitfehler 1004) dabei. Der Code ist recht übersichtlich:

        Dim PCache As PivotCache       
        Dim PRange As Range
        Dim LastRow As Long
        Dim LastCol As Long

        LastRow = Tabelle8.Cells(Rows.Count, 1).End(xlUp).Row
        LastCol = Tabelle8.Cells(1, Columns.Count).End(xlToLeft).Column
        Set PRange = Tabelle8.Cells(1, 1).Resize(LastRow, LastCol)
        
        'Define Pivot Cache
        Set PCache = ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=PRange). _
                            CreatePivotTable(TableDestination:=Tabelle9.Cells(20, 2), TableName:="PivotTableIRRBB")

Wer kann mir weiterhelfen?

Grüße Andreas