Return Timeline Selection

[mikeymay]

Is it possible to either return the Label Selection or the periods selected from a Timeline attached to a pivot table?

 

[Worf]

Yes.

Sub Marine()
'
Dim t As TimelineState


Set t = ActiveWorkbook.SlicerCaches("NativeTimeline_date1").TimelineState
MsgBox t.StartDate & vbLf & t.EndDate
End Sub

 

[mikeymay]

Thanks for this but is it possible to do this via a formula?

 

[Worf]

You could use a UDF. If no VBA is allowed, I can try a different approach.

Excel Workbook
	G	H
43	01/01/2015	31/03/2015
Plan16

Function MM()
Dim v(), t As TimelineState
ReDim v(1 To 2)
Set t = ActiveWorkbook.SlicerCaches("NativeTimeline_date1").TimelineState
v(1) = t.StartDate
v(2) = t.EndDate
MM = v
End Function