Office: (Office 2013) Pivot automatisch aktualisieren

Heilbronner · 20. Februar 2015

Hallo Leute,

kann es sein, dass die Funktion der automatischen Aktualisierung einer Pivot-Tabelle hinsichtlich der Datenmenge begrenzt ist?
Ich arbeite an einem komplexen Excel-Tool mit großem Datenvolumen und habe darin mehrere Pivot-Tabellen erstellt und jeweils die automatische Aktualisierung aktiviert.

Wenn die Datei neu geöffent wird, sind die Pivots unverändert, obwohl die Basisdaten zuvor angepasst wurden. Erst nach einem manuellen Klick auf die Pivot-Aktualisierung ändern sich dann die Inhalte.

Bei anderen Exceltabellen mit deutlich weniger Datenvolumen hat die automatische Aktualisierung dagegen immer einwandfrei funktioniert.

Danke für Infos!

:)

Storax · 22. Februar 2015

Crossposting

http://www.office-loesung.de/p/viewt...f=166&t=684523

WS-53 · 22. Februar 2015

Hallo,

meine Tabelle ist zwar nicht so umfangreich und enhtält auch nur eine Pivot-Tabelle, aber auch bei mir hat er Mal aktualisiert und ein anderes Mal nicht aktualisiert. Deshalb habe ich es bei mir das Problem und auch wegen der Pivot-Slicer mit einem Makro gelöst. Bei mir wird es durch die Routine der Datenaktualisierung aufgerufen.

Wenn ich mich recht erinnere, hatte ich dabei die Aktionen mit dem Recorder aufgezeichnet und dann nachbearbeitet.

Hier einmal der Code, wie er bei mir aussieht.

Code:

Sub pivot_slicer_aktualisieren()

Dim item As SlicerItem
Dim Name_item
Dim i As Integer
Dim s1 As Integer
Dim s2 As Integer
Dim pt As PivotTable

Application.ScreenUpdating = False
ActiveWorkbook.SlicerCaches("Datenschnitt_Game_week").ClearManualFilter

i = 1: s1 = 5: s2 = 6

For Each item In ThisWorkbook.SlicerCaches("Datenschnitt_Game_week").SlicerItems
If Sheets("Termine").Range("I" & s1).Value = 0 And _
Sheets("Termine").Range("I" & s2).Value = 0 Then
item.Selected = False
End If

If i = 53 Or _
i = Sheets("Termine").Range("termine_spielabende_gespielt").Value Then
Exit For
End If

i = i + 1: s1 = s1 + 2: s2 = s2 + 2
Next item

With ActiveWorkbook.SlicerCaches("Datenschnitt_Game_week")
.SlicerItems("99").Selected = False
.SlicerItems("(Leer)").Selected = False
End With

ActiveWorkbook.SlicerCaches("Datenschnitt_Name").ClearManualFilter

i = 1

On Error Resume Next
For i = 8 To 90
If Sheets("Player").Range("R" & i).Value = "" Then
Exit For
End If

If Sheets("Player").Range("R" & i).Value = 0 Or _
Sheets("Player").Range("E" & i).Value > 53 Then
Name_item = Sheets("Player").Range("A" & i).Value
With ActiveWorkbook.SlicerCaches("Datenschnitt_Name")
.SlicerItems(Name_item).Selected = False
End With
End If
Next

Name_item = "(leer)"
With ActiveWorkbook.SlicerCaches("Datenschnitt_Name")
.SlicerItems("0").Selected = False
.SlicerItems("(Leer)").Selected = False
End With

On Error Resume Next
For Each pt In Sheets(1).PivotTables
pt.RefreshTable
Next pt

Sheets("Pivot").Select
ActiveSheet.PivotTables("PivotTable2").PivotCache.Refresh

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: (Office 2013) Pivot automatisch aktualisieren

Pivot automatisch aktualisieren

Pivot automatisch aktualisieren

Pivot automatisch aktualisieren - Similar Threads - Pivot automatisch aktualisieren

Summenprodukt als Vergleich zu Pivot

Provisions-Berechnung mit Pivot-Tabelle

Pivot mit verschieden Filtern automatisch als PDF speichern

automatische Pivot Aktualisierung mit SAP BW-Daten

Pivot Tabellen automatisch aktualisieren lassen

automatisch fortlaufender Druck aus Pivot

Pivot-Tabellen bei Änderung auf Reiter automatisch aktualisieren?