Draaitabel items selecteren op basis van een waarde in een cel

[xamirz]

Hallo allemaal,

Ik wil graag een draaitabelitem(filter) selectie willen maken op basis van een cel waarde.

Ik heb de onderstaande code in vba.
Wat doet de code: Die zet alle "ID" items in de draaitabel op de waarde van cel a1(Environ ID)
Nu wil ik graag een tweede item laten selecteren op basis van waarde van cel a2.

Hoe kan ik dit het beste aanpakken?

Gr amir





Private Sub Worksheet_Change(ByVal Target As Range)
If Not Target.Address = Range("A1").Address Then Exit Sub
Dim pt As PivotTable
Dim ptItem As PivotItem
On Error Resume Next
For Each pt In Worksheets("Data").PivotTables
With pt.PivotFields("ID")
If .EnableMultiplePageItems = True Then
.ClearAllFilters
End If
Set ptItem = .PivotItems(Target.Value)
If Not ptItem Is Nothing Then
.CurrentPage = Target.Value
End If
End With
Next
End Sub