Vierte Pivot-Tabelle reagiert nicht auf VBA Code

Mahlzeit allen zusammen,
ich habe mit meinem hier bereits modifizierten Code ein neues Problem.
Zum Aufbau:
Auf drei Datenblättern sind 4 Pivottabellen verteilt:
Datenblatt 1: PivotTabelle 1
Datenblatt 2: PivotTabelle 2
Datenblatt 3: PivotTabelle 3 und 4
Alle Pivottabllen haben diesselbe Datenbasis und die gleichen Bereichsfilter.
Diese Filter möchte ich über Listenauswahlfelder in Datenblatt 3 steuern.
Hierfür habe ich zunächst folgenden Code für das Datenblatt 3 hinterlegt, der mir hier empfohlen wurde und in der alten Datei (die etwas simpler gestrickt war (Blatt 3 hatte keine Pivottabellen) funktioniert hat:

Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False Call PivAendern Application.EnableEvents = True End Sub

In einem Modul findet sich nun folgender Code (hier mal nur für einen der fünf Bereichsfilter):
Sub PivAendern()
' Regionsauswahl 2012 2013 Pivot Analyser
With Sheets("Pivot_Analyser_2012").PivotTables(1)
.PivotFields("Region").CurrentPage = Sheets("Kundenumsatzsegmente").[C3].Value
'.PivotCache.Refresh
End With
With Sheets("Pivot_Analyser_2013").PivotTables(1)
.PivotFields("Region").CurrentPage = Sheets("Kundenumsatzsegmente").[C3].Value
'.PivotCache.Refresh
End With
' Regionsauswahl 2012 2013 Kundenumsatzsegmente
With Sheets("Kundenumsatzsegmente").PivotTables(1)
.PivotFields("Region").CurrentPage = Sheets("Kundenumsatzsegmente").[C3].Value
'.PivotCache.Refresh
End With
End Sub
Seltsamerweise werden Pivottabelle 1, 2, und 4 aktuallisiert, wen man die Region in Zelle C3 ändert. Nicht jedoch Pivottabelle 3.
Stattdessen taucht neuerdings folgender Fehler auf:
"Die Methode Current Page für das Objekt PivotField ist fehlgeschlagen"
Weiß jemand wo das Problem liegt?
Vielen Dank schon einmal

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo EtoPHG,
vielen Dank für deine schnelle Antwort. Der Hintergrund ist folgender:
Diese Datei dient End-Usern als Auswertungsdatei. Diese sind mit Einschränkungen nicht in der Lage oder Willens vier Pivottabellen Bereichsfilter seperat anzupassen. Dies ist aber notwendig damit die Tabellen, die sich wiederum aus diesen vieren Pivottabellen ihre Daten ziehen, auch die richtigen Werte anzeigen.
Um die Sache für die User zu vereinfachen, wollte ich eben einen Auswahlfilter schaffen, der bewirkt, dass sofort alle Daten neu und richtig gerechnet werden.
Leider kann ich fast gar kein VBA, deshalb sagt mir die .Refresh Methode gar nichts. Ich habe zwar eine Cache.Refresh Anweisung mal im Code gehabt s.o., die allerdings nichts sichtbares bewirkt hat, weshalb ich sie raugenommen habe. Die alte Tabelle funktioniert auch so super.
Ich habe nun zwar mit der Anweisung "For Each" etwas rumprobiert,
Z.B. diesen hier in der letzten Anweisung:
Dim pt As PivotTable
For Each pt In Worksheets("Kundenumsatzsegmente").PivotTables
With Sheets("Kundenumsatzsegmente").PivotTables(1)
.PivotFields("Region").CurrentPage = Sheets("Kundenumsatzsegmente").[C3].Value
'.PivotCache.Refresh
pt.Refresh
End With
Next pt
Vielleicht würde es mir ja weiterhelfen, wenn ich mir jemand sagen könnte, wie ich den Index einer Pivottabelle rausfinden kann. Dies ist doch dann die Zahl in meinem VBA Code der in Klammern hinter dem Ausdruck "PivotTables" steht oder?
Oder vielleicht kennt auch jemand einfach die konkrete Lösung des Problems.
Vielen Dank jedem der sich mit mir erbarmt.

Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Dim lRow As Long Dim pt As PivotTable On Error GoTo ErrExit If Intersect(Target, Range("C3:C8")) Is Nothing Then Exit Sub Application.EnableEvents = False Application.ScreenUpdating = False For lRow = 3 To 8 For Each pt In Worksheets("Pivot_Analyser_2012").PivotTables pt.PivotFields(Cells(lRow, 2).Text).CurrentPage = Cells(lRow, 3).Text Next pt For Each pt In Worksheets("Pivot_Analyser_2013").PivotTables pt.PivotFields(Cells(lRow, 2).Text).CurrentPage = Cells(lRow, 3).Text Next pt For Each pt In PivotTables pt.PivotFields(Cells(lRow, 2).Text).CurrentPage = Cells(lRow, 3).Text Next pt Next lRow ErrExit: Application.EnableEvents = True Application.ScreenUpdating = True End Sub

Beliebteste Forumthreads (12 Monate)

Vierte Pivot-Tabelle reagiert nicht auf VBA Code

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

313 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Vierte Pivot-Tabelle reagiert nicht auf VBA Code

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

313 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread