privat
Sub test()
If ActiveSheet.Range("b33") = "22730" Then
ActiveSheet.ChartObjects("Diagramm 2").Activate
With ActiveSheet.PivotTables("PivotTable9").PivotFields("KST")
.PivotItems("22730").Visible = True
End With
If ActiveSheet.Range("b33") = "22790" Then
ActiveSheet.ChartObjects("Diagramm 2").Activate
With ActiveSheet.PivotTables("PivotTable9").PivotFields("KST")
.PivotItems("22790").Visible = True
End With
End If
End If
End Sub