Hallo Zusammen,
ich stehe vor einem Problem in VBA, dass ich selber nicht lösen kann und würde mich freuen wenn ihr mir weiterhelfen könntet.
Hierbei geht es um folgendes:
Über Powerpivot habe ich eine Verbindung zu einem anderen Excel-Sheet hergestellt und dort steuere ich verschiedene Arbeitsblätter an in denen die Datenbasis für die Pivottabellen hinterlegt ist. In meiner eigentlichen Datei befinden sich somit nur Diagramme. Nun möchte ich, dass die einzelnen Diagrammtitel mit der jeweiligen Filterauswahl verknüpft sind um eine bessere Übersicht über das Kriterium das gerade angezeigt wird zu bekommen.
Sheets("Arbeitsblatt1").Select
ActiveSheet.ChartObjects("Diagramm1").Activate
ActiveChart.PivotLayout.PivotTable.PivotFields( _
"[PivotTabelle1].[Kriterium].[Kriterium]").VisibleItemsList = _
Array( _
"[PivotTabelle1].[Kriterium].&[Kiterium1]" _
)
"Kriterium 1" hab ich ausgewählt bei meinem Filter und das möchte ich im Diagrammtitel stehen haben.
Habt ihr eine Idee?
Dabei ist zu bedenken, dass auf einem Arbeitsblatt sich mehrere Diagramme befinden somit sollte das ChartObjects aufjedenfall berücksichtigt werden im Code.
Danke
|