filteren op inhoud cel

[Jaminonp]

Beste,

Ik heb een vraag omtrent het filteren van een tabel.
In onderstaande filter wordt gefilterd tot 14 dagen vooruit, deze filter werkt perfect.
Deze filter gebruik ik om een database te filteren en zo te kopieren, nu zou ik graag de 14 willen vervangen door een waarde die in een ander file "Report.xlsm"staat in cel B2.
Zodat ik de aantal dagen kan wijzigen in de cel B2.

Heeft iemand hier een oplossing voor?


ActiveSheet.ListObjects("Table_hn_Master").Range. _
AutoFilter Field:=6, Criteria1:="<=" & Format(Date + 14, "m-d-yyyy")

Alvast bedankt

 

[jkpieterse]

ALs volgt (uitgaande van werkblad "FilterBlad"):

ActiveSheet.ListObjects("Table_hn_Master").Range. _
 AutoFilter Field:=6, Criteria1:="<=" & Format(Date + Workbooks("Report.xlsm").Worksheets("Filterblad").Range("B2").Value, "m-d-yyyy")

 

[Jaminonp]

Bedankt voor de oplossing, precies wat ik zocht