AW: Pivot-Tabellen filtern?
09.09.2005 10:04:54
R.Schmitt
Betrag als Seitenfeld
einsetzen und im Seitenfeld
mittels den beiden Makros
nur die Beträge anzeigen
die deinen Vorstellungen
entsprechen.
In deinem Fall eben statt
dem Array mit Werten die
Größer oder kleiner Bedingung.
Sub Filter()
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
Call PivotFilter("Heft (HFT)", Array("204001", "204002", "204003", "204004", "204005"))
Application.ScreenUpdating = True
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
End Sub
Sub PivotFilter(Feld$, Elemente As Variant)
Dim pi As PivotItem
On Error Resume Next
For Each pi In ActiveSheet.PivotTables("PivotTable1").PivotFields(Feld).PivotItems
pi.Visible = (MyMatch(pi.Name, Elemente) <> 0)
Next
End Sub
Gruß
R.Schmitt