Goedemorgen allen,
Ik heb nog eens een vraagje.
Het bestand is volledig af en nu dat de code voor alle soorten opmaak met hun corresponderende voorwaarden volledig uitgewerkt is heb ik een beter zicht op de totaliteit.
Ik ben dan gisteren begonnen met het nagaan waar de code eventueel kan ingekort/samengevoegd worden en dit ging voor alle onderdelen vrij vlotjes, tot ik aan het laatste onderdeel kwam.
Ik heb dus in een Select Case, twee Case-blokken met elk dezelfde voorwaarden en acties, enkel de periode is verschillend. Ik probeer reeds sinds gisterenmiddag om deze samengevoegd te krijgen, heb al op ettelijke manieren geprobeerd, maar het lijkt me maar niet te lukken. Vermoedelijk ga ik het weer veel te ver zoeken en/of ben ik er al te lang op bezig of is het simpelweg niet mogelijk maar ik wou toch eventjes hier navragen of en hoe het toch mogelijk zou zijn. De twee case-blokken behoren tot een Select Case met meerdere case-blokken en zou toch wel binnen die structuur moeten blijven omdat die Select Case onderdeel is van een For Each… Next-loop.
Gemakshalve heb ik de For Each... Next-loop ingekort en beperkt tot de twee betreffende Case-blokken.
Dit is de code die ik nu heb voor de betreffende Case-blokken :
For Each dag In arJaarkalender
ReDim Preserve arA(a)
ReDim Preserve arB(b)
Select Case dag
'Case
'code
Case dat13 To dat13b '=krokusvakantie
Select Case Day(dat13 - 2)
Case 1 To 7, 15 To 21, 29 To 31
Select Case Weekday(dag, vbMonday)
Case 1 To 3
arA(a) = dag
a = a + 1
Case 4 To 7
arB(b) = dag
b = b + 1
End Select
Case 8 To 14, 22 To 28
Select Case Weekday(dag, vbMonday)
Case 1 To 3
arB(b) = dag
b = b + 1
Case 4 To 7
arA(a) = dag
a = a + 1
End Select
End Select
Case dat15 To dat15b '=herfstvakantie
Select Case Day(dat15 - 2)
Case 1 To 7, 15 To 21, 29 To 31
Select Case Weekday(dag, vbMonday)
Case 1 To 3
arA(a) = dag
a = a + 1
Case 4 To 7
arB(b) = dag
b = b + 1
End Select
Case 8 To 14, 22 To 28
Select Case Weekday(dag, vbMonday)
Case 1 To 3
arB(b) = dag
b = b + 1
Case 4 To 7
arA(a) = dag
a = a + 1
End Select
End Select
'Case
'code
'Case
'code
End Select
Next dag
Alvast mijn oprechte dank.
groetjes,
BlackDevil