Hallo BlackDevil,
Zoals ik uit je eerdere post kon opmaken moesten altijd de eerste 7 datums naar één array, de laatste 7 naar een andere, het kan dus inderdaad een stukje eenvoudiger. Een serie van 14 datums kan datums uit 2 kalenderjaren bevatten (hier zelfs waarschijnlijk vermits ik me 'kerstvakantie' herinner), dus welke je dan neemt om te bepalen of het over een even jaar gaat valt niet af te leiden (of ik heb erover gekeken).
Als ik me van dat laatste distantieer kom ik er bv. al met:
Sub verdeel1()
fdate = DateSerial(2021, 11, 1)
Dim arr1(13)
For i = 0 To 13
arr1(i) = i + fdate
Next i
Dim arrA(6)
Dim arrB(6)
For i = 0 To 6
arrA(i) = arr1(i)
arrB(i) = arr1(i + 7)
Next i
End Sub
Met enkel nog één IF-statement erbij moet het dan volstaan. Voor de andere kwestie kan je dezelfde kant op.
Wel even opletten met " If Year(dag) = Even Then". Ik had "even" als tekst gebruikt om je duidelijk te maken binnen welke 'Case' je het aan de ene of de andere array moest toevoegen. In jouw methode is Even een variabele die geen waarde bevat, dus je IF zal altijd FALSE geven.
Mvg,
Molly