With Sheets(BlattName).PivotTables("Abrechnung").PivotFields("Department")
For i = 1 To .PivotItems.Count
If .PivotItems(i).Name = "Abteil ABC" Then
.PivotItems(i).Visible = False
' ElseIf .PivotItems(i).Name = "(blank)" Then
' .PivotItems(i).Visible = True
' ElseIf .PivotItems(i).Name = " " Then
' .PivotItems(i).Visible = True
Else
If .PivotItems(i).Visible = False Then
.PivotItems(i).Visible = True
End If
End If
Next
End With
es läuft nur mit den ausgeblendeten Zeichen und für " " nur dann wenn ich den Wert auf False setze
Hat da jemand eine Erklärung / Lösung ? Ich kapiere es nicht mehr.
Hier noch als Beispieldatei:
https://www.herber.de/bbs/user/70470.txt
Problem trit bei 2007 aber auch bei 2010 auf
Axel