Pivot Berichtsfilter auslesen

Johann · 2014-08-06T18:18:11+00:00

Hallo zusammen, ich möchte alle Berichtsfilter meiner Pivottabelle auslesen, um mit diesen Infos ein Diagramm zu beschriften. Wie kann ich mir die Informationen anzeigen lassen, wenn mehrere Elemente des jeweiligen Filterfeldes markiert sind? Die markierten Elemente sollen anschließend einzeln in das Feld C1, D1, usw. geschrieben werden. Die Elemente des nächsten Filterfeldes in C2, D2, ... Da meine VBA-Kenntnisse relativ bescheiden sind, ist mir eine Nicht VBA-Lösung auch sehr willkommen. Könnte man das z.B. mit getpivotdata() lösen? Viele Grüße Johann PS: Eine Umstrukturierung der Tabelle, so dass "Country" als zusätzliches Spaltenelement hinzugenommen wird, ist leider nicht möglich.

Hallo Johann,
es sind ja 2 Makros:
1.: Public Function fncBerichtsfilter(pvTable As ....
Dieses Makro musst du in einem allgemeinen Modul in deiner Datei einfügen.
2.: Ereignismakro

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
With Me
'in nächster Zeile _
- die Zelle (wo Filter eingetragen werden soll), _
- Name des Berichtsfeldes, _
- und ggf. den Trenntext zwischen den Filterwerten _
anpassen.
.Range("B2").Value = fncBerichtsfilter(pvTable:=Target, _
strFieldName:="Feld01", strSep:=";")
.Range("B3").Value = fncBerichtsfilter(pvTable:=Target, _
strFieldName:="Feld02", strSep:=";")
End With
End Sub

Dieses muss im VBA-Editor jeweils unter den Tabellenblättern mit den Pivot-Tabellenberichten eingefügt werden.
Das Makro schreibt dann alle Filterwerte zu dem unter strFieldName angegebenen Berichtsfeld in die Zelle.
Nachfolgend eine Variante. Diese arbeitet alle Felder im Seitenbereich ab und trägt die selektierten Elemente in die rechten Nachbarzellen ein. Für die Ausgabe der Werte kann man sich natürlich auch etwas anderes zusammenstellen.
Gruß
Franz

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
Dim pvField As PivotField, varFilterwerte As Variant, intV, intZeile As Integer, intSpalte As  _
Integer
With Me
'Alle slektierten Elemente der >Berichtsfelder in den rechten nachbarzellen anzeigen
For Each pvField In Target.PageFields
pvField.LabelRange.Offset(0, 2).Resize(1, 10).ClearContents
varFilterwerte = fncBerichtsfilter(pvTable:=Target, _
strFieldName:=pvField.Name, strSep:=";")
If varFilterwerte <> "" Then
varFilterwerte = Split(varFilterwerte, ";")
intZeile = 0
intSpalte = 0
For intV = LBound(varFilterwerte) To UBound(varFilterwerte)
intSpalte = intSpalte + 1
pvField.LabelRange.Offset(0 + intZeile, 2 + intSpalte).Value = varFilterwerte(intV)
Next
End If
Next
End With
End Sub

Hallo Franz,
es scheint sich wirklich um ein Problem zu handeln, das durch die Nutzung eines Datenmodells als Datenquelle enststeht.
Dein Code hat auch nach den Änderungen nicht funktioniert.
Habe folgenden Code ausprobiert, den ich in einem anderen Forum gefunden habe und für mich leichter anzupassen, weil kürzer ist. Er fuktioniert für eine "normale" Pivot Tabelle. Ich werde einen anderen Thread aufmachen, der das Problem mit Power Pivot konkretisiert.
Viele Grüße
Johann

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 < 1 Then
MsgBox "There are no PageFields in this Pivot Table"
Exit Sub
End If
With PT.PageFields(1)
'---store field name in sArray(0)
ReDim sArray(0)
sArray(0) = .Name
If .EnableMultiplePageItems Then
'---store visible items in sArray(1) and up
For i = 1 To .PivotItems.Count
If .PivotItems(i).Visible Then
ReDim Preserve sArray(UBound(sArray) + 1)
sArray(UBound(sArray)) = .PivotItems(i)
End If
Next i
Else
ReDim Preserve sArray(UBound(sArray) + 1)
sArray(UBound(sArray)) = .CurrentPage
End If
End With
'---display results in Immediate Window
For i = 0 To UBound(sArray)
'Debug.Print sArray(i)
Worksheets("Filter").Range("A" & i + 1).Value = sArray(i)
Next i
End Sub

Forumthread: Pivot Berichtsfilter auslesen

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial