Pivot Filter autom. übernehmen
10.09.2022 09:55:31
Marcel
ich habe (als absoluter vba Anfänger) ein Problem mit einem Makro, das einen Filter einer Pivot ändern soll und dann die Pivottabelle auch aktualisieren soll.
Ich habe zwar bereits diesen (https://www.herber.de/forum/archiv/1080to1084/1080552_PivotFilter_ueber_Zellinhalt_steuern.html#google_vignette)
Beitrag gelesen und der hat mir auch sehr geholfen, allerdings bekomme ich folgende Fehler ausgeworfen wenn ich das Makro starte:
Laufzeitfehler 1004 Anwendungs- oder objektdefinierter Fehler.
In Tabelle Übersicht wähle ich aus, welche Produktuntergruppe ich sehen möchte (Zelle D6) und diese Auswahl soll dann in den Pivotfilter im Tabellenblatt Datenzugriff (Zelle B3) übernommen werden.
https://www.herber.de/bbs/user/155095.xlsx
Mein Codes dafür sind die beiden folgenden:
Private Sub Worksheet_Change(ByVal Target As Range)
Call PivAendern
End Sub
Sub PivAendern()
With Sheets("Datenzugriff").PivotTables(1)
.PivotFields("Prod-Unt-Grp").CurrentPage = Sheets("Übersicht").[D6].Value
.PivotCache.Refresh
End With
End Sub
Vielen Dank für euch im Voraus.
Viele Grüße
Marcel