PivotTabelle: Kriterien variabel via VBA auswählen
20.07.2008 17:30:03
maik
ich möchte gerne Kriterien in einer PivotTabelle variabel via VBA anzeigen lassen. Alle anderen Kriterien der Spalte sollten automatisch ausgeblendet werden.
Zum Anzeigen der Kriterien genügt ein einfaches Makro:
With ActiveSheet.PivotTables("PivotTable1").PivotFields("Units")
For i = 3 To 7
Criteria = Sheets("Grouping").Cells(i, 1)
.PivotItems(Criteria).Visible = True
Next
End With
Wie aber kann ich alle anderen Kriterien automatisch ausblenden? Habt Ihr eine Idee?
Danke!!!
Maik