Pivot Seitenfelder alle bis auf mit VBA
lutz
ich würde gerne per Makro die Seitenfelder einer Pivottabelle selektieren.
Dabei soll im Blatt "Eingabe" im Bereich B7:C12 der jeweilige Monat stehen.
Excel kann m.W. im ersten Schritt nicht alle Felder nicht selektieren weil er dann aussteigt.
D.h. man muß wohl alle rausnehmn die nicht in dem Bereich stehen.
Ich habe hier einen Code im Forum gefunden der das mit einem Array macht:
Sub yyy()
Dim PI As PivotItem, arrItemsOn
arrItemsOn = Array("Januar", "Februar", "März")
With ActiveSheet.PivotTables(1).PivotFields("Monat")
For Each PI In .PivotItems
PI.Visible = Not IsError(Application.Match(PI, arrItemsOn, 0))
Next
End With
End Sub
Wie muß ich den Code anpassen damit er meinen Bereich als Array der zu selektierenden Werte nimmt?
Set rngTagesdat = Sheets("Eingabe").Range("B7:C12")
Kann jemand helfen?
Vielen Dank und viele Grüße Lutz