Planning negeert feestdagen

[tijmen_4real]

Hoi,

Mijn Excel voor een (semi)geautomatiseerde planningskalender werkt nu redelijk.
Veel code zal rommelig lijken, maar werkt wel.

Een toevoeging die ik nog wil maken is dat (vooringegeven) roostervrije dagen genegeerd worden in dit stuk VBA:

Dim KeyCells As Range
    Set KeyCells = Range("G7:G100")
    If Not Application.Intersect(KeyCells, Range(Target.Address)) _
           Is Nothing Then
                startDatum = Range("G" & aanRij).Value
                eindDatum = Range("H" & aanRij).Value
    Dim rng As Range, cell As Range
    Set rng = Range("L5:LU5")
    For Each cell In rng
        '** wanneer dag voorkomt in string met vastgestelde vakantiedagen, deze dan overslaan **
        If Weekday(cell.Value, vbMonday) <= 5 Then
            aanC = cell.Column
            If (cell.Value >= startDatum) And (cell.Value <= eindDatum) Then
                Cells(aanRij, aanC).Interior.Color = RGB(0, 255, 0)
                Cells(aanRij, aanC).Value = Cells(aanRij, 4).Value
            Else
                Cells(aanRij, aanC).Interior.Color = RGB(255, 255, 255)
                'Cells(aanRij, aanC).Value = ""
            End If
        End If
    Next cell
    End If

Zodat deze dus niet meegenomen worden, niet gekleurd, maar ook niet als toegepaste dagen voor een project.
Ik heb even geen idee hoe dit toe te passen...
(Bestand staat in de bijlage)

Hoor graag ieder idee.
Bij voorbaat dank en met vriendelijke groet,

Tijmen