Pivot makro
22.05.2017 14:39:46
A
ich hab mit Excel ein Makro aufgezeichnet wo ich in Pivotcharts bestimmte Filter einstelle. Das Aufzeichnen ging ohne Problem doch beim Abspielen bekomme ich immer eine Fehlermeldung.
Die PivotTables-Eigenschaft des Worksheet Objektes kann nicht zugeordnet werden.
Sub Makro6()
' Makro6 Makro
ActiveSheet.ChartObjects("Diagramm 21").Activate
ActiveChart.PivotLayout.PivotTable.PivotFields("Bel. Produktionsbereich"). _
ClearAllFilters
ActiveSheet.PivotTables(-1).PivotFields("Bel. Produktionsbereich").CurrentPage _
= "TR-430"
ActiveSheet.ChartObjects("Diagramm 28").Activate
ActiveChart.PivotLayout.PivotTable.PivotFields("Bel. Produktionsbereich"). _
ClearAllFilters
ActiveSheet.PivotTables(-1).PivotFields("Bel. Produktionsbereich").CurrentPage _
= "TR-430"
Beim Fett markierten zeigt er mir schon einen Fehler
End Sub