in folgendem Code blende ich alle PivotItems aus. Wenn das letzte ausgeblendet werden soll gibts nen Fehler, da ja mindestens eines eingeblendet sein muss (Deswegen On Error Resume Next).
Ich will jetzt dass das PivotItem("Name") wieder eingeblendet wird, aber Excel machts nicht. ich bekomme noch nichtmal ne Fehlermeldung :(
Was mache ich falsch? (Und wie mach ichs richtig :)?)
With .PivotFields("Mitglieder")
.Orientation = xlRowField
For i = 1 To .PivotItems.Count
On Error Resume Next
.PivotItems(i).Visible = False
Next
.PivotItems("Name").Visible = True
End With
Vielen Dank schon im voraus,
Andi