Excel Pivot Datenquelle ändern als Makro?

Hallo,

ich möchte in einer Pivottabelle die Datenquelle ändern.

Mir sind hierfür 2 Möglichkeiten bekannt, nachdem ich in die Pivot geklickt habe:

1_Pivottablle_tools, analysieren, Datenquelle ändern, Datenquelle ändern

=> ich gelange zu PivotTable-Datenquelle ändern, wo ich den Bereich auwählen kann.

2_alt + JY+ T + D

=> ich gelange zu PivotTable-Datenquelle ändern, wo ich den Bereich auswählen kann.

Ich frage mich nun ob es eine Möglichkeit gibt, nachdem ich in eine Pivottabelle geklickt habe ein Makro aufzunehmen, so, dass ich zu dem Bildschrim gelange

=> Pivottable-Datenquelle ändern, wo ich den Bereich auswählen kann.

Klicke ich nämlich in eine Pivottabelle, gehe dann auf Makro aufzeichnen, gehe dann auf analysieren, Datenquelle ändern, Datenquelle ändern

=> kann ich das Marko nicht beenden, wenn ich in dem Auswahlbereich für die Pivot bin.

Kennt jemand eine Möglichkeit dies zu tun?

Zusatzfrage: Gibt es eine Möglichkeit eine bestimmte Reihefolge von Tastenkombinationen zu speichern, so das ich z. B. alt + JY + T + D durch eine andere Tastenkombination ersetzen kann?

Answer 1

[KHSchindelar]

Ich frage mich nun ob es eine Möglichkeit gibt, nachdem ich in eine Pivottabelle geklickt habe ein Makro aufzunehmen, so, dass ich zu dem Bildschrim gelange

Ja, Du kannst das Makro aufzeichnen und aufrufen um die Datenquelle zu ändern

Zusatzfrage: Gibt es eine Möglichkeit eine bestimmte Reihenfolge ... ,...

Wenn Du das Makro aufgezeichnet hast, dürfte sich diese Anforderung doch erübrigen.

Woher ich das weiß: eigene Erfahrung

Comments

[RedDevil1982]

Und wie? Hast du es mal ausprobiert?

Sobald du zum Bereich auswählen für die Pivottabelle kommst, kannst du das Makro nicht beenden.

Ich möchte das Makro beenden bevor ich den Bereich für die Pivot auswähle, und nur zum Bereichauswhahl für die Pivot durch das Makro gelangen.

[KHSchindelar]

@RedDevil1982

-.-.-

[KHSchindelar]

@RedDevil1982

Stimmt, das Makro will eine konkrete Quelle haben.

Du könntest Abfragen hinzufügen und daraus jeweils eine Pivottabelle erzeugen. Die Daten würden automatisch oder über Daten-aktualisieren auf den aktuellen Stand gebracht

[KHSchindelar]

@KHSchindelar

https://support.office.com/de-de/article/Ändern-der-quelldaten-einer-pivottable-afd93524-f7de-432c-84d0-3896fbbc2577

[RedDevil1982]

@KHSchindelar

Ich hab ne andere Möglichkeit gefunden. Ich füge einfach in den Schnellzugriff den Befehl "Datenquelle ändern" hinzu, dann ein Klick und ich bin genau da wo ich sein will

Answer 2

[IchMalWiederXY]

Makro aufzeichnen um den Pivot Bereich 'neu' zu setzen hatte ich auch schon mal versucht. Leider ohne Erfolg.
Aber dieses Problem hatten natürlich auch noch andere:

PivotName = "PivotTable1"

'Dynamically Retrieve Range Address of Data

 Set StartPoint = Range("C1")

 Set DataRange = Range(StartPoint, "AN1000") 'Den letzten Datenpunkt ggf auch dynamisch ermitteln

 NewRange = "SSR-RAWdata" & "!" & _

   DataRange.Address(ReferenceStyle:=xlR1C1)

'Change Pivot Table Data Source Range Address

Dim j As Long

       Worksheets("MeineDaten").PivotTables.Item(j).ChangePivotCache _

       ThisWorkbook.PivotCaches.Create( SourceType:=xlDatabase,        SourceData:=NewRange)

       Worksheets("MeineDaten").PivotTables.Item(1).PivotCache.Refresh

       'Ensure Pivot Table is Refreshed

       Worksheets("MeineDaten").PivotTables.Item(1).RefreshTable