Filterauswahl verknüpft mit Diagrammtitel
23.08.2018 15:07:19
Marcel
ich habe eine Excel-Datei erstellt in der ich meine Daten abspeichere und eine zweite Excel-Datei in der ich die Daten über Powerpivot verwende um PivotCharts zu erstellen. Es befinden sich auf einem Arbeitsblatt mehrere Pivotcharts. In diesen Charts möchte ich gerne die Auswahl eines Filters als Diagrammtitel darstellen lassen (wie im Bild angezeigt).
Sub Diagrammtitel()
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.PivotLayout.PivotTable.PivotFields( _
"[Daten1].[Kriterium].[Kriterium]").VisibleItemsList = _
Array( _
"[Daten1].[Kriterium].&[Kriterium1]" _
)
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.ChartTitle.Select
End Sub
Jetzt hab ich mal mit dem Macrorecorder ein bisschen angefangen um einen Ansatz zu finden, da ich mich mit der Ansteurung von Pivottabellen über VBA nahezu nicht auskenne. Ich möchte das "Kriterium1" von oben als ChartTitle anzeigen lassen.