Pivotfiltern über Kombinationsfeld

Liebe Forumsteilnehmer
Ich würde gerne eine Pivot-Tabelle filtern. Als Filterkriterium müsste jeweils der Wert aus einem Kombinationsfeld geholt werden. D. h., nach Auswahl eines Wertes im Kombinationsfeld, müsste die Pivot dann entsprechend dieses Werts gefiltert werden.
Ich weiss, dass man die Filterung auch direkt in der Pivottabelle machen kann. Ich möchte den Usern aber keinen Zugriff auf die Tabelle geben. Den folgenden Code habe ich bisher versucht:

Private Sub cboAuswahl_Change()
With ActiveSheet.PivotTables("PivotTable1").PivotFields("Fruchtsorte")
.PivotItems.Value = cboAuswahl.Value
End With
End Sub