rijen inkleuren op basis van datum in veld en af te toetsen via namedrange

[StephaanK]

ik heb een bestand (zie bijlage) waarin ik voor iedere verlofdag in de lijst A1:A22 (namedrange feestdagen) drie rijen moet kleuren als een datum in de lijst voorkomt in één van de tabbladen (ieder tabblad is een maand).
zo moet voor januari bvb de rijen 4,5 , 6 en 7,8,9 gekleurd worden en voor bvb mei o.a. rijen 43, 44 ,45 ,46, 47 ,48
ik heb onder andere dit geprobeerd: waar datum wordt opgehaald via een "for each rij ... " uit kolom b
schema is een range A1:T96, rij is ook gedefinieerd als range

If IsInArray(datum, feestdagen) = True Then
            schema.Rows(rij.row).Interior.Color = rgbBrown
End If

Function IsInArray(verlofdag As Variant, arr As Variant) As Boolean

    IsInArray = (UBound(Filter(arr, verlofdag)) > -1)

End Function

ik heb ook al een gewone for next loop geprobeerd en telkens de 22 items afgelopen maar de datumvergelijking werkt niet zoals ik verwacht. ik heb een Nl-talige excelversie, office2013, win7 met alle settings voor in het Nederlands voor België, formaat van de datums is de korte datumnotatie dus DD/MM/JJJJ
Gelijk welke oplossing is welkom
mvg
stephaan

 

[StephaanK]

ik heb het kunnen oplossen, de array die ik gebruikte moest eerst nog omgezet worden in een range met Application.Transpose(range("A1:a30").value en de volgorde van de parameter voor mijn isinarray functie was niet correct: eerst moest de array komen dan de variabele die gezocht moest worden in de array.
na deze correcties werkte de functie correct