Verzamel staat maken

[schuurar]

Beste Rudi,

Erg bedankt hier voor. Nu nog 1 laatste dan stop ik er voorlopig mee.
Ik wi lin de code nog een derde optie hebben.

Sub tst()
Columns("A:D").ClearContents
Application.Goto [A1]
For i = 1 To Sheets.Count - 1
    For Each cl In Sheets(i).[D6:ab200]
        If cl = "Vakantie" Or cl = "Snipperdag" Or cl = "Ziek" Then
           With [Verzamel!A65536].End(xlUp)
                .Offset(1) = Sheets(i).[d2]
                .Offset(1, 1) = DateValue(Day(cl.Offset(-1)) & "/" & Month(cl.Offset(-1)) & "/" & Year(cl.Offset(-1)))
                .Offset(1, 2) = cl
                .Offset(1, 3) = "=ADDRESS(MATCH(RC[-3],R6C6:R12C6,0)+5,MATCH(DAY(RC[-2]),R6C13:R6C44,0)+12)"
            End With
        End If
    Next
Next
tst2
End Sub

Sub tst2()
With Sheets("Verzamel")
    .[N7:AR12].Interior.ColorIndex = xlNone
    For Each cl In .Range("D2:D" & .Cells(Rows.Count, 4).End(xlUp).Row)
        Range(cl).Interior.ColorIndex = IIf(cl.Offset(, -1) = "Vakantie", 4, 3)
    Next
End With
End Sub

Nu heb ik hem in de eerste er al bij gezet (ziek) maar hoe krijg ik die in de tweede code met ook een andere kleur ?

 

[Warme bakkertje]

Sub tst2()
With Sheets("Verzamel")
    .[N7:AR12].Interior.ColorIndex = xlNone
    For Each cl In .Range("D2:D" & .Cells(Rows.Count, 4).End(xlUp).Row)
        Range(cl).Interior.ColorIndex = Switch(cl.Offset(, -1) = "Vakantie", 4, cl.Offset(, -1) = "Snipperdag", 3, cl.Offset(, -1) = "Ziek", 6)
    Next
End With
End Sub