Celverwijzing in een macro draaitabel

[rickbakkenes]

Beste Excel-kenners,

Ik heb een macro geschreven waarin een stukje voorkomt waarin ik een draaitabel instel:

Sheets("RAPPORTAGES YTD").Select
ActiveWindow.SmallScroll Down:=-15
ActiveSheet.PivotTables("Draaitabel7").PivotFields("CC").ClearAllFilters
ActiveSheet.PivotTables("Draaitabel7").PivotFields("KD").ClearAllFilters
ActiveSheet.PivotTables("Draaitabel7").PivotFields("CC").CurrentPage = "1040"
ActiveSheet.PivotTables("Draaitabel7").PivotFields("KD").CurrentPage = "(All)"
ActiveWindow.SmallScroll Down:=33

Nu kies ik hier voor CC 1040.

Is er een mogelijkheid om te verwijzen naar een cel in mijn bestand.

Ik heb diezelfde 1040 namelijk ook in blad!A1 staan

Hoe kan ik dit het beste doen dan?

Alvast bedankt.

Groetjes, Ridk

 

[VenA]

Code graag tussen de daarvoor bedoelde tags.

Draaitabellen opnemen via de macrorecorder geven vaak foutmeldingen na het aanpassen van code.

Je kan dit proberen

ActiveSheet.PivotTables("Draaitabel7").PivotFields("CC").CurrentPage = Sheets("Blad1").Range("A1")

Het is beter om even een voorbeeldje te plaatsen.

 

[rickbakkenes]

Het is gelukt.

Bedankt

Groetjes, Rick

 

[VenA]

Da's mooi.

Je kan een iets aangepaste code ook in de bladmodule zetten en dan wordt de draaitabel automatisch bijgewerkt.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("T1")) Is Nothing Then
    With ActiveSheet.PivotTables("Draaitabel1")
        .PivotFields("CC").ClearAllFilters
        .PivotFields("CC").CurrentPage = Range("T1").Value
        .PivotCache.Refresh
    End With
End If
End Sub