Code ändern Berichtsfilter lesen Power Pivot
08.08.2014 14:17:37
Johann
ich stehe mal wieder vor einem Problem mit einem Makro und hoffe, dass ihr mir auch diesmal helfen könnt.
Ich habe folgenden Code getest, der für eine "normale" Pivot Tabelle funktioniert. Das Makro liest den Berichtsfilterinhalt (in diesem Fall existiert nur einer) und schreibt ihn ein ein anderes Tabellenblatt. In A1 steht der Name des Feldes und darunter der Inhalt.
Sub Get_Current_PageFilters_OnePageField()
Dim PT As PivotTable
Dim sArray() As String
Dim i As Long
On Error Resume Next
Set PT = Worksheets("PivotData").Range("A1").PivotTable
If PT.PageFields.Count Der Inhalt der esten Klammer ist der Name der Tabelle im Datenmodell. Der Inhalt der anderen ist der Name des Seitenfelds bzw. des Berichtsfilters. Der Inhalt sollte nun darunter stehen. Tut er aber nicht.
Kennt sich jemand mit diesem Problem aus und weiß,wie ich den Code ändern müsste?
Viele Grüße
Johann