Makro Ausführung bei Pivot-Aktualisierung
19.02.2016 12:11:40
Anna
ich habe ein Makro geschrieben, welches zusätzliche Daten entsprechend der Auswahl in einer Pivottabelle in eine zusätzliche Spalte neben der Tabelle schreibt (über Index- und Vergleiche-Formeln). Dabei handelt es sich um Kommentare, also Zeichenketten, die die Pivot selbst nicht verarbeiten kann. Das funktioniert über diesen Umweg soweit auch ohne Probleme.
Jetzt möchte ich einführen, dass beim Ändern des Datenschnitts zur Pivottabelle eine Abfrage stattfindet, ob ungespeicherte Inhalte vorliegen. Dazu ist in einer extra-Spalte ein Boolean hinterlegt, der prüft, ob er aktuelle Zelleninhalt der Kommentare mit einem entsprechenden in einem Archiv-Datenblatt übereinstimmt. Wenn die Summe 0, soll abgefragt werden, ob die Kommentare gespeichert oder verworfen werden sollen.
Es gibt ja über die Objekte (in VBA bei mir unter Tabelle 2) die Möglichkeit, ein Makro bei einem bestimmten Event auszuführen. Ich habe das über Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable). Das Problem: Die Formeln aktualisieren sich, bevor das Makro ausgeführt wird. Die Abfrage nach ungespeicherten Inhalten ist also fehlerhaft, weil schon die Kommentare zum neuen Datenschnitt geladen werden... Ich habe dann ein Private Sub Worksheet_PivotTableBeforeAllocateChanges(ByVal TargetPivotTable As PivotTable, ByVal ValueChangeStart As Long, ByVal ValueChangeEnd As Long, Cancel As Boolean) probiert, allerdings ruft er dabei kein Makro auf...
Also, zusammenfassend: Der Datenschnitt der Pivottabelle wird geändert, dann soll er die Speicherung abfragen und anschließend erst die neuen KOmmentare laden. Jemand ne Idee? ;)
Grüße
Anna