Fehler beim Erstellen eines Makros zum Erstellen einer Pivot-Tabelle mit einem dynamischen benannten Bereich

Question

Ich versuche, ein Makro zum Erstellen einer Pivot-Tabelle aus einem Blatt, das sich in der Länge ändert. Verwendet, um einen dynamischen benannten Bereich zu erfassen, aber ist immer ein:

Laufzeitfehler 5 Ungültiger Prozeduraufruf oder Argument

„DATA“ ist mein Dynamikbereich scoped genannt. korrigiert unten an den und jetzt einen „Laufzeitfehler‚1004‘Methode‚Range‘von object'_Global‘ ist fehlgeschlagen, weil ich Referenzierung bin kein bestimmtes Blatt?

With ActiveWorkbook.Names("DATA") .Name = "DATA" .RefersToR1C1 = _ "=OFFSET('Closed Cases'!R1C2,0,0,COUNTA('Closed Cases'!C6),25)" .Comment = "" End With ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _ Range("DATA"), Version:=xlPivotTableVersion14).CreatePivotTable TableDestination:= _ "'External Analytics!'R1C15", TableName:="PivotTable3", DefaultVersion:= _ xlPivotTableVersion14 Sheets("External Analytics").Select Cells(1, 1).Select

Answer 1

Sie haben zu geben, eine bekommen Range Objekt SourceData Argument

Wenn "Data" wird eine Arbeitsmappe Bereich namens scoped Sie eingeben möchten:

ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _ 
Range("Data"), Version:=xlPivotTableVersion14).CreatePivotTable TableDestination:= _ 
"'External Analytics!'R1C15", TableName:="PivotTable3", DefaultVersion:= _ 
xlPivotTableVersion14