Pivot Refresh
30.11.2020 16:10:41
HerrSieDa
als absoluter VBA Noob habe ich mich im Copy&Pasten bislang ganz gut durchschlagen können, habe allerdings nun ein Problem beim Refresh einer Pivot Tabelle.
In einer sehr großen Excel Datei habe ich ein Script welches bei Änderung einer Zelle (C1) Daten aus verschiedenen Worksheets zusammengefasst in einem anderen Tabellenblatt anzeigt. In diesem Tabellenblatt ist unter anderen eine Pivot Tabelle bei der nach dem Import einige Änderungen mittels eines mit dem Makrorecorder aufgezeichneten Script durchgeführt werden.
Soweit so gut...es macht was es soll....ausser, die Pivot Tabelle upzudaten.
Hierzu habe ich bisher folgendes Script:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address(False, False) = "C1" Then
ThisWorkbook.RefreshAll
With ActiveSheet.PivotTables("PivotTable14").PivotFields("Failure")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("PivotTable14").PivotFields("Model")
.Orientation = xlRowField
.Position = 2
End With
ActiveSheet.PivotTables("PivotTable14").AddDataField ActiveSheet.PivotTables( _
"PivotTable14").PivotFields("1"), "Summe von 1", xlSum
ActiveSheet.PivotTables("PivotTable14").AddDataField ActiveSheet.PivotTables( _
"PivotTable14").PivotFields("2"), "Summe von 2", xlSum
ActiveSheet.PivotTables("PivotTable14").PivotFields("Failure").AutoSort _
xlDescending, "Summe von T"
ActiveSheet.PivotTables("PivotTable14").PivotCache.Refresh
End If
End Sub
Lediglich der letzte Teil "ActiveSheet.PivotTables("PivotTable14").PivotCache.Refresh" funktioniert nicht. Erstelle ich ein Makro mit diesem Code und einen Button und rufe es damit auf, funktioniert das Update der Pivot.
Was mache ich falsch?
Danke Euch für einen Tipp.
Grüße aus Berlin
Thorsten