Pivots auf B aktualisieren, wenn C aufgerufen wird

Hallo mal wieder!
Ich kämpfe mit folgenden Problemchen bzw. suche verzweifelt nach Lösungen, die die Aktualisierung beschleunigen:
Ich habe eine Mappe mit einer ziemlich Datenbank, aus der mittels Spezialfilter bei Änderung des Eintrags in Zelle F3 der Startseite "Cockpit" selektierte Daten in andere Blätter (z.B. A1-A5) kopiert werden. Das klappt!
Auf jeder dieser Seiten basiert eine Seite mit diversen Pivottabellen (B1-B5). Das klappt auch!
Aus diesen Pivottabellen wird jeweils eine "Ausgabeseite" bestückt, die mit angehübschten Tabellen und Diagrammen eine Auswertung der Daten bereitstellt (C1-C5). Das klappt ebenfalls!
Im Moment werden diese Pivot-Seiten alle zusammen aktualisiert mit folgendem Code in DieseArbeitsmappe:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Bereich1 As Range
Dim pt As PivotTable
Set Bereich1 = Range("F3")
If Not Intersect(Target, Bereich1) Is Nothing Then
For Each pt In ActiveSheet.PivotTables
pt.RefreshTable
Next pt
End If
End Sub

Das dauert zwar eine kleine Weile, aber klappt soweit auch. Allerdings werden die PT jedes mal alle aktualisiert, wenn ich das Cockpit erneut aufrufe, auch wenn sich nichts auf der Seite geändert hat. Das kostet überflüssigerweise wertvolle Lebenszeit ;-)
Das zu beschleunigen ist nun mein Problemchen:
1) Kann man es verhindern, dass beim Aufruf des Cockpits wiederum alle PT aktualisiert werden? Wenn ja, wie?
Oder noch besser:
2) weil ja eine Aktualisierung nur notwendig ist, wenn eine Seite auch aufgerufen wird, dass auch nur dann die jeweiligen PT auf B1-B5 aktualisiert werden und nicht alle? Also beim Aufruf von C1 wird nur B1 aktualisiert, bei C2 nur B2 usw.
Ich hoffe, ich habe das einigermaßen verständlich beschrieben und würde mich freuen, wenn mir da jemand auf die Sprünge helfen könnte!
Vielen Dank schon mal im Voraus und viele Grüße aus dem sonnenverwöhnten Ammerland!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

'Ereignismakro unter "DieseArbeitsmappe" Private Sub Workbook_SheetActivate(ByVal Sh As Object) Dim shPivot As Worksheet Dim pt As PivotTable Dim StatusCalc As Long Select Case Sh.Name Case "C1", "C2", "C3", "C4", "C5" 'Makrobremsen lösen With Application .ScreenUpdating = False StatusCalc = .Calculation .Calculation = xlCalculationManual .EnableEvents = False End With Set shPivot = Me.Worksheets("B" & Right(Sh.Name, 1)) If shPivot.PivotTables.Count > 0 Then shPivot.PivotTables(1).Refresh ' For Each pt In shPivot.PivotTables ' pt.RefreshTable ' Next pt Sh.Calculate 'Makrobremsen zurücksetzen With Application .EnableEvents = True .ScreenUpdating = True .Calculation = StatusCalc End With MsgBox "Pivots für Blatt """ & Sh.Name & """ sind aktualisiert" 'Testzeile-kann _ wieder gelöscht werden End Select End Sub

'Ereignismakro unter "DieseArbeitsmappe" Private Sub Workbook_SheetActivate(ByVal Sh As Object) Dim shPivot As Worksheet Dim pt As PivotTable Dim StatusCalc As Long Select Case Sh.Name Case "C1", "C2", "C3", "C4", "C5" 'Makrobremsen lösen With Application .ScreenUpdating = False StatusCalc = .Calculation .Calculation = xlCalculationManual .EnableEvents = False End With Set shPivot = Me.Worksheets("B" & Right(Sh.Name, 1)) If shPivot.PivotTables.Count > 0 Then shPivot.PivotTables(1).RefreshTable ' For Each pt In shPivot.PivotTables ' pt.RefreshTable ' Next pt Sh.Calculate 'Makrobremsen zurücksetzen With Application .EnableEvents = True .ScreenUpdating = True .Calculation = StatusCalc End With MsgBox "Pivots für Blatt """ & Sh.Name & """ aktualisiert" 'Testzeile End Select End Sub

Hallo Franz,
zunächst einmal vielen Dank für deinen Lösungsvorschlag!
Allerdings tue ich mich mit der Anpassung der Beispielnamen an die Echtnamen noch etwas schwer oder anders ausgedrückt, ich krieg's nicht hin :-(
Ich bin davon ausgegangen, dass in deiner Codezeile
Case "C1", "C2", "C3", "C4", "C5"
die Beispielnamen wie "C1" durch die tatsächliche Bezeichnung ersetzt werden müssen, also z.B. durch "ABC". Das habe ich zumindest so angepasst.
Aber dann kommt der Punkt, wo der Debugger sich meldet und meckert:
Set shPivot = Me.Worksheets("B" & Right(Sh.Name, 1))
"B" wäre ja der echte Name der PT, also bei mir dann "ABC Pivot". Das habe ich dann umgebaut zu
Set shPivot = Me.Worksheets(Right(Sh.Name,1)& "Pivot", schien mir logisch, aber das war wohl nix und damit bin ich dann mit meinem Latein am Ende.
Kannst du mir bitte verraten, wie ich die Seiten korrekt ansprechen kann?

'Ereignismakro unter "DieseArbeitsmappe" Private Sub Workbook_SheetActivate(ByVal Sh As Object) Dim shPivot As Worksheet Dim pt As PivotTable Dim StatusCalc As Long Select Case Sh.Name Case "C1", "C2", "C3", "C4", "C5" 'Makrobremsen lösen With Application .ScreenUpdating = False StatusCalc = .Calculation .Calculation = xlCalculationManual .EnableEvents = False End With Select Case Sh.Name Case "C1": Set shPivot = Me.Worksheets("ABC Pivot") Case "C2": Set shPivot = Me.Worksheets("XYZ Pivot") Case "C3": Set shPivot = Me.Worksheets("A3C Pivot") Case "C4": Set shPivot = Me.Worksheets("A4C Pivot") Case "C5": Set shPivot = Me.Worksheets("A5C Pivot") End Select If shPivot.PivotTables.Count > 0 Then shPivot.PivotTables(1).RefreshTable Sh.Calculate 'Makrobremsen zurücksetzen With Application .EnableEvents = True .ScreenUpdating = True .Calculation = StatusCalc End With MsgBox "Pivots für Blatt """ & Sh.Name & """ aktualisiert" 'Testzeile End Select End Sub

Beliebteste Forumthreads (12 Monate)

Pivots auf B aktualisieren, wenn C aufgerufen wird

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread