Hi,

What am I doing wrong... I have Pivot Table with all data and then I want a
chart do display this, everything is fine, but now I have to buttons one for
select and one for unselect,
Unselect works fine, but select does not....

Unselect macro:

Sub Reset_BB()

For i = 1 To
ActiveChart.PivotLayout.PivotFields("BB").PivotIte ms.Count - 1
With ActiveChart.PivotLayout.PivotFields("BB")
.PivotItems(i).Visible = False
End With
Next

End Sub

Select macro:

Sub Set_BB()

MsgBox "Diese Funktion ist leider noch nicht implementiert."
Exit Sub

Sheets("Grafik nach BB").Select
For i = 1 To
ActiveChart.PivotLayout.PivotFields("BB").PivotIte ms.Count - 1
With ActiveChart.PivotLayout.PivotFields("BB")
.PivotItems(i).Visible = True
End With
Next

End Sub


Thanx
/goran