bepalen van een celwaarde VBA

[Scallebe]

Specialisten,

Ik heb volgende code (gedeelte) om mijn draaitabel automatisch te laten updaten :

ActiveSheet.PivotTables("Draaitabel1").ChangePivotCache ActiveWorkbook. _
        PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "C:\Users\Pascal\Desktop\[Prestaties CCF design thuis.xlsm]Alle CCF!R5C1:R402C63" _
        , Version:=xlPivotTableVersion14)

En het werkt perfect

Nu wil ik dat de waarde 402 wordt gezocht in de cel BM1.

Afgaande uit andere codes die die waarde gaan zoeken in BM1 heb ik de regel : "Regels = [BM1]" toegevoegd en mijn code als dusdanig aangepast :

    Regels = [BM1]
    ActiveSheet.PivotTables("Draaitabel1").ChangePivotCache ActiveWorkbook. _
        PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "C:\Users\Pascal\Desktop\[Prestaties CCF design thuis.xlsm]Alle CCF!R5C1:R & RegelsC63" _
        , Version:=xlPivotTableVersion14)

Maar het werkt niet

Wie kan helpen?

Thanks

Pascal

 

[VenA]

Probeer het eens zo.

CCF!R5C1:R" & Regels & "C63"

 

[Scallebe]

VenA,

Om Rik De Saedeleer zaliger te quoten : Dat Is em!!!! Dat Is em!!!!

Thanks