Hallo Forumsmitglieder,
ich möchte unsere Kunden anhand ihrer Nummer in einer Pivot aufrufen.
Die nachstehende Liste verarbeitet VBA nicht, weil sie in etwa 1.800 Zeilen lang ist.
Sheets("Pivot").Select
With ActiveSheet.PivotTables("PivotTable1").PivotFields("Kunden Nr")
.PivotItems("1000007").Visible = False
.PivotItems("1000015").Visible = False
.PivotItems("1000069").Visible = True
.PivotItems("1000083").Visible = True
.PivotItems("1000143").Visible = True
.PivotItems("1000146").Visible = True
.
.
.
End With
End Sub
Kann man die Kunden, die man nicht haben will vieleicht mit einem kurzen Befehl rausnehmen und nicht bei allen mit " einem "False" Eintrag.
Danke
Matthias