Met een van bovenstaande macro's gaat het je zeker lukken

Vullen van een array met datum range

Code: [Selecteer]

Sub jec()
 Dim ar() As Variant, fdate As Long, ldate As Long, i As Long, x As Long
 fdate = Date
 ldate = Date + 15
 
 For i = fdate To ldate
    ReDim Preserve ar(x)
    ar(x) = Format(i, "mm-dd-yyyy")
    x = x + 1
 Next
 
End Sub

Oops, had jouw berichtje tussen het mijne en dat van Molly niet onmiddellijk opgemerkt  ...

Ik bestudeer beide straks even nader... nu eerst zorgen voor de maag van de dochter 

groetjes,
BlackDevil

Mijn aanpassing overlapte met jouw post, vandaar

Goeiemorgen iedereen,

Na gisteren al een groot deel van de meer complexe bewerkingen met arrays tot een goed einde gebracht te hebben is er toch ééntje waar ik sinds gisteren namiddag maar niet door geraak...

Van al de arrays zijn er 2 (arrA en arrB) die als eindresultaat gebruikt zullen worden voor de uitvoer en welke dus onder specifieke voorwaarden bijgevuld worden met datums uit andere arrays.

arr1 is een array met 14 opeenvolgende datums.
Afhankelijk van het jaar (even of oneven) moeten deze datums verdeeld worden over arrA en arrB.
jaar = 'even' dan eerste 7 dagen naar arrA en laatste 7 dagen naar arrB
jaar = 'oneven' dan eerste 7 dagen naar arrB en laatste 7 dagen naar arrA

arr2 is een array met 7 opeenvolgende datums.
Afhankelijk van de voorafgaande zaterdag (1e, 2e, 3e, 4e of 5e v/d maand) moeten ook deze datums verdeeld worden over arrA en arrB.
voorafgaande zaterdag = 1e, 3e of 5e v/d maand dan eerste 3 dagen naar arrA en laatste 4 dagen naar arrB
voorafgaande zaterdag = 2e of 4e v/d maand dan eerste 3 dagen naar arrB en laatste 4 dagen naar arrA

Omdat er binnen mijn huidige code gevoelige informatie verwerkt zit is het moeilijk een actueel voorbeeldbestand bij te voegen.
Hopelijk is mijn uitleg voldoende duidelijk om toch enigszins een tip/aanwijzing te kunnen krijgen die mij op weg helpt.

Alvast mijn oprechte dank.

P.S.: de eerste datum in arr1 en arr2 is altijd een maandag.

groetjes,
BlackDevil

Mooi zo, in dat geval enkel een heel klein duwtje in de juiste richting.
Met wat je al hebt in orde gekregen (laat je misschien even zien?, dan kijken we meteen of je het voldoende simpel hebt gehouden  ) kom je er met dit zeker ook. Het bovenste stukje van mijn code heb je uiteraard niet nodig; heb ik enkel gedaan om een array met 7 datums te maken.
Sub mvh()

Dim arr1(6)
eerste = DateSerial(2021, 11, 8)
For i = 0 To 6
    arr1(i) = eerste + i
Next i

Select Case Day(arr1(0) - 2)
    Case 8 To 14, 22 To 28
        week = "even"
    Case Else
        week = "oneven"
End Select

End Sub

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

@MollyVH,

Inderdaad bij een vakantie van 14 dagen wordt het 7/7 opgesplitst en dit telkens van maandag tot zondag.
In mijn huidig project gaat het voor deze code-blok echter enkel maar over de paasvakantie gezien er voor de kerstvakantie een totaal andere verdeling is (welke ik in een volgende stap moet verwerken in een code-blok).

Bedankt voor je voorbeeldje, hiermee kan het idd korter  .

Wat de "If Year(dag) = Even Then" betreft ging ik ervan uit dat er twee parameters zijn, "Even" en "Odd" en als het dan jaar 2022 was dat het dan True zou geven. Maar blijkbaar zag ik dat compleet verkeerd. 
Heb er dan nu het volgende van gemaakt : "If Year(dag) Mod 2 = 0 Then.... Else.... End If".


groetjes,
BlackDevil

  ok, blijkbaar al te lang aan één stuk bezig waardoor ik het weer vééééél te ver ging zoeken 

heb het simpel opgelost gekregen dus 

groetjes,
BlackDevil