Datenauswertung mit PQ

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Chris,
hier noch kurz eine Rückmeldung:
Also die Version aus Deiner Beispieldatei funktioniert soweit super für mich, vielen Dank noch einmal dafür. Ich hatte es entsprechend angepasst.
Jetzt habe ich allerdings noch eine Frage bezüglich der automatischen Aktualisierung von Pivot Tabellen:
Ich lasse nun die KW mittels Formel auslesen und wenn ich die Daten dann aktualisiere wird auch alles richtig berechnet. Soweit so gut. Nun wollte ich aber nicht bei jeder Änderung die Pivot Tabelle selber aktualisieren und bin mittels VBA daran gegangen das ändern zu wollen.


Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Worksheets("Pivottables").PivotTables("PivotTable22").PivotCache.Refresh
End Sub

Leider funktioniert das nicht und auch


Worksheet_SelectionChange(ByVal Target As Range)

funktioniert nicht. Ich möchte auch nicht bei jeder Änderung sämtliche Abfragen mittels


ThisWorkbook.RefreshAll

aktualisieren. Was muss ich hier nehmen, damit sich die Daten selbstständig bei neuen Werten aktualisieren oder gibt es da keine Möglichkeit? Wenn ich allerdings die KW selber ändere ohne den Formelbezug zu benutzen klappt es einwandfrei.
Gruß Ulf

Hi Ulf
Um nur die eine Abfrage zu aktualisieren, anstelle von RefreshAll, würde ich bezogen auf die Beispieldatei die folgende Zeile vorschlagen:


ThisWorkbook.Connections("Abfrage - tab_QSKosten").Refresh

Die darauf aufbauende Pivot wird bei mir mitaktualisiert.
Einen idealen "Trigger" vorzuschlagen ist schwierig, da ich die Zusammenhänge nicht kenne. Klar ist, dass sich ein Change-Event auf diejenige Zelle/Tabelle beziehen muss, wo der Verweis herkommt, also diejenige Zelle, welche manuell geändert wird. Das Formelergebnis ist somit nicht als Auslöser für das Makro geeignet.


Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("F2")) Is Nothing Then _
ThisWorkbook.Connections("Abfrage - tab_QSKosten").Refresh
End Sub

Falls die änderbare Zelle und das Abfrageergebnis auf unterschiedlichen Tabellen steht, könnte u.U. auch ein Worksheet-Activate Ereignis zweckmässig sein.
cu
Chris

/* siehe: https://www.office-kompetenz.de/daten-in-power-query-fuer-pivot-auswertungen-mit-jahr-iso-jahr-und-kalenderwoche-vorbereiten/ Nachbau der Excel-Formel: =KÜRZEN((Datum-WOCHENTAG(Datum;2)+11-("1/"&JAHR(Datum+4-WOCHENTAG(Datum;2))))/7) let fx_Kalenderwoche = (Datum as date) as number => let Wochentag = Date.DayOfWeek(Datum) + 1, Teil1 = Number.From(Datum) - Wochentag + 11, Teil2 = Number.From(#date(Date.Year(Date.From(Number.From(Datum) + 4 - Wochentag)),1,1)), Teil3 = (Teil1 - Teil2) / 7, Kuerzen = Teil3- Number.Mod(Teil3, 1) in Kuerzen in fx_Kalenderwoche

Beliebteste Forumthreads (12 Monate)

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread