Draaitabel loopt fout.

[coma]

Hoi!
Mijn vorige vraag dateert van 6-4-2006, ik ben echt geweldig geholpen maar nu loop ik toch weer tegen een probleempje aan. Bij het kiezen van één bepaalde medewerker op het blad "medewerker" loopt mijn macro stuk. Het volgende krijg ik dan te zien:

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
Application.EnableEvents = False
Dim Pt As PivotTable, choice As String
For Each Pt In ActiveSheet.PivotTables
If Pt.Name <> Target.Name Then
choice = Target.PivotFields("Medewerker").CurrentPage
Pt.PivotFields("Medewerker").CurrentPage = choice
End If
Pt.Update 'dit is nieuw
Next Pt
Application.EnableEvents = True
Cells.EntireColumn.AutoFit
End Sub

Hierbij wordt de regel "Pt.PivotFields("Medewerker").CurrentPage = choice"geel weergegeven. Kan iemand mij helpen?
Alavst bedankt!

 

[coma]

toevoeging op mijn vraag

Op het betreffende tabblad staan 4 tabellen. Het valt me nu op dat in 3 van de 4 tabellen de juiste medewerker pmk komt te staan. In de foute tabel wordt de medewerker in de keuszelijst vervangen door pmk2. Maakt dit e.e.a. duidelijker?

 

[coma]

bijlage

Hierbij de bijlage!