Filter draaitabel tonen

[bobelsenburg]

Goedemorgen,

Ik hoor dat iemand mij kan helpen: ik wil in een cel de filters tonen van een draaitabel. De draaitabel "Draaitabel1" heeft een filter actief "Trans Year", wat het transactiejaar aangeeft. Als ik bijvoorbeeld 2019, 2020 en 2021 heb gefilterd, dan wil ik in cel A1 (in een ander tabblad) tonen welk(e) ja(a)r(en) ik heb gefilterd. Dus in dit voorbeeld moet A1 worden: "2019-2021". Stel dat ik enkel 2021 heb gefilterd, dan moet A1 zijn "2021-2021".

Is dit met vba gemakkelijk voor elkaar te krijgen?

Alvast dank!

Edit: voor het gemak even een bestandje toegevoegd

 

[E v R]

met een funktie(VBA)

heb de funktie volatile gemaakt en een NU() formule op de sheet toegevoegd om deze te laten herberekenen

Eventueel nog wat te optimaliseren

 

[JEC.]

Deze geeft ook het gewenste antwoord als er maar 1 jaar geselecteerd is

Function jec(dtname As String) As String
  Application.Volatile
   For Each it In Sheets("Draaitabel").PivotTables(dtname).PivotFields(1).PivotItems
     If it.Visible Then sq = sq & IIf(sq = "", "", "-") & it
   Next
   jec = IIf(Len(sq) = 4, sq & "-" & sq, sq)
End Function

=jec("Draaitabel1")

 

[snb]

Waarom niet een slicer transyear in het werkblad 'output' ?