Gewusst wie: Ändern der Quelle von einer Excel-Pivot-Tabelle mit VBA

Microsoft Excel ist ein Tabellenkalkulations-Programm. Ein Merkmal dieses Programms ist, dass Sie ihre Arbeitsblätter verwenden können, um Daten ähnlich wie die Art und Weise, die Sie würden in einer Datenbank speichern und dann darauf verweisen in dynamische grafische Darstellung. Es gibt zwei Arten von Displays können: PivotTables und PivotCharts. PivotTables kann verwendet werden, zu sortieren, Filtern und Zusammenfassen von Daten. Die einzige Möglichkeit zum Ändern der Datenquelle, die von einer PivotTable verwendet werden, nachdem es durch den Assistenten erstellt wurde, ist es von VBA-Code im Hintergrund aktualisieren.

Anweisungen

1 Erstellen Sie eine PivotTable-Objekt in VBA, so dass die Quelle aktualisiert werden können. Kopieren Sie den Code unten und steckte ihn in Ihre Makro- oder Funktionsausführung.

Dim PtMyPivotTable As PivotTable

2 Verbinden Sie Ihre PivotTable-Objekt mit Ihrer tatsächlichen Pivot-Tabelle. Kopieren Sie den Code unten.

Set PtMyPivotTable = ActiveSheet.PivotTables(1)

3 Aktualisieren Sie die Eigenschaft SourceData Ihre PivotTable-Objekts, um die neuen Werte. Dazu kopieren den VBA-Code zur Verfügung gestellt. Ersetzen Sie Ihre gewünschten Datenbereich anstelle von "A1" im Beispiel.

ptMyPivotTable.SourceData = Range("A1"). CurrentRegion.Address (True, True, xlR1C1, True)

Um eine Palette auf ein anderes Blatt zu verweisen, können Sie den folgenden Code.

ptMyPivotTable.SourceData = Sheets("mySheetName"). [A1]. CurrentRegion.Address (True, True, xlR1C1, True)

4 Aktualisieren Sie die Daten tatsächlich in Ihrer Pivot-Tabelle mithilfe der folgenden VBA-Befehl angezeigt.

ptMyPivotTable.RefreshTable

5 Geben Sie die Ressourcen, die Sie in Ihrer PivotTable-Objekt verwendet, indem sie gleich auf Nothing festlegen.

Set PtMyPivotTable = Nothing

Tipps & Warnungen

• Sie können die Daten in Ihrer Pivot-Tabelle aktualisieren haben, jedes Mal, wenn die tatsächlichen Daten ändert. Legen Sie dazu einfach Ihr Arbeitsblatt automatisch berechnen und fügen Sie den RefreshTable-Befehl an die Worksheet_Calculate-Funktion. Siehe Link im Abschnitt Ressourcen für weitere Details.