Abbruch bei Pivot-Tabellen-Erstellung
02.11.2020 12:47:36
Sven
ich möchte mit diesem Code eine Pivottabelle auf dem gleichnamigen Blatt erstellen, bekomme aber den Laufzeitfehler 1004, der PT-Feldname sei ungültig. Kann das wirklich an den Spaltenüberschriften liegen? Die sind eindeutig und recht unauffällig...
Dim ptCache As PivotCache
Dim ptTable As PivotTable
With ThisWorkbook.Worksheets("Pivot")
For Each ptTable In .PivotTables
ptTable.TableRange2.Delete
Next ptTable
End With
With ThisWorkbook
Set ptCache = .PivotCaches.Add(SourceType:=xlDatabase, SourceData:="Gesamt!A1:Z" & . _
Worksheets("Gesamt").UsedRange.Rows.Count)
Set ptTable = ptCache.CreatePivotTable(TableDestination:=.Worksheets("Pivot").Range("A1" _
), TableName:="FR")
End With