Ich habe ein funktionierndes Makro das mir in einem Tabellenblatt einen Pivotfilter immer um eins weiter setzt und die restlichen Filter ausblendet.
Leider dürfte das Makro das recht umständlich machen da immer alle ein und alle ausgeblendet werden und nur der aktuelle "Count" übrigbleibt.
Kann ich da nicht gleich aus einer Liste die Filter auslesen damit das schneller von statten geht?
Sprich:
1. Schritt: Alle Filter löschen
2. Schritt: Variable aus Liste auslesen und festlegen
3. Schritt: Filter aufgrund der Variable setzen
Sub Pivot_Drucken_RM()
Dim pt As PivotTable
Dim pi As PivotItem
Dim pf As PivotField
Dim piCount As Integer
Dim piAct As Integer
Set pt = Worksheets("RG").PivotTables("Pivot1")
Set pf = pt.PivotFields("RG")
For piAct = 1 To pf.PivotItems.Count
Sheets(Array("RG")).Select
pt.ManualUpdate = True
pf.ClearAllFilters
For piCount = 1 To pf.PivotItems.Count
If pf.PivotItems(piCount) pf.PivotItems(piAct) Then
pf.PivotItems(piCount).Visible = False
End If
Next piCount
pt.ManualUpdate = False
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\" & "TEST_" & Cells(15, 2) & ".pdf", Quality:=xlQualityMinimum, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Next piAct
End Sub
Vielen Dank!