met workdays rekenen in VBA

Status
Niet open voor verdere reacties.

aceituna

Gebruiker
Lid geworden
26 okt 2009
Berichten
6
Beste experts,

ik zit met de volgende vraag:
dagelijks moeten wij een rapport maken waarbij gefilterd moet worden op de dag.

Mijn voorganger had de tekst zo gemaakt dat iedere dag m.b.v. replace de data aangepast moest worden. Nu wil ik dit graag via een nette macro regelen, alleen kom ik er niet uit hoe ik het commando moet geven dat morgen de volgende werkdag moet zijn. Op dit moment is de code als volgt.


Selection.AutoFilter Field:=1, Criteria1:=">=" & Format(Date+1, "yymmdd") & " 0000", Operator:= _
xlAnd, Criteria2:="<=" & Format(Date+1, "yymmdd") & " 0501"

Deze code werkt, maar niet op de vrijdag.

ik kan eventueel ook de juiste data in een cell in het bestandje plaatsen, maar dan weet ik niet hoe ik het criteria naar die cell moet verwijzen.

Uw hulp wordt op prijs gesteld.
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan