Feestdagen in code verwerken

[wieter]

In bijgevoegd bestand zit de nieuwe code van Sylvester Ponte.
Dit scheelt een pak aan formules. En er kan over middernacht gewerkt worden.
Nu heb ik al uren geprobeerd, om de feestdagen(blad2) in die code te verwerken.

Met een extra voorwaarde probeer ik, in dit stukje van de code, de feestdagen aan 200% te krijgen.
Dit wil maar niet lukken.

    Dag = Weekday(Datum, 2)
    
    If Dag < 6 Then
        DagTekst = "m-vr"
    ElseIf Dag = 6 Then
        DagTekst = "za"
    Else
        DagTekst = "zo/feest"
    End If

Wie kan het wel?

 

[huijb]

Niet nodig om je vraag twee keer te plaatsen, hier verder http://www.helpmij.nl/forum/showthread.php/807804-Feestdagen-in-code-verwerken