Sub Pivotfilter_auslesen()
Dim AnzahlFelder As Byte
Dim Zähler As Byte
Dim Filternummer As Byte
Dim Anzahl As Long
With ActiveSheet.PivotTables("PivotTable2")
AnzahlFelder = .PivotFields.Count
Filternummer = 1
For Zähler = 1 To AnzahlFelder
Debug.Print .PivotFields(Zähler).Name, .PivotFields(Zähler).Orientation
If .PivotFields(Zähler).Orientation = xlPageField Then
Worksheets("Legende").Cells(1, Filternummer).Value = .PivotFields(Zähler).Name
Filternummer = Filternummer + 1
End If
Next Zähler
Anzahl = .PivotFields("Alter").PivotItems.Count
End With
For Zähler = 1 To Anzahl
Worksheets("Legende").Cells((Zähler + 1), 1).Value = _
ActiveSheet.PivotTables("PivotTable2").PivotFields("Alter").PivotItems(Zähler).Name
Next Zähler
End Sub