Dim RngIntersect, RngIntersectMaanden, Rngjanurai, Rngfebruari, Rngmaart, Rngapril, Rngmei, Rngjuni, Rngjuli, Rngaugustus, Rngseptember, Rngoktober, Rngnovember, Rngdecember As Range
Dim RngIntersectWeekenden, RngjanuariWeekend, RngfebruariWeekend, RngmaartWeekend, RngaprilWeekend, RngmeiWeekend, RngjuniWeekend, RngjuliWeekend, RngaugustusWeekend, _
RngseptemberWeekend, RngoktoberWeekend, RngnovemberWeekend, RngdecemberWeekend As Range
Dim RngMaandenWatched As Range
Dim RngWeekendWatched As Range
Dim StrGekozenDagDeel As String
Dim BDriehoekIsInBereik As Boolean
Dim BRechthoekIsInBereik As Boolean
Dim StrShapeType As String
Dim shp As Shape
Dim StrDagdeelActiveVorm As String
Dim StrsoortSymbool As String
Dim RngEmptyCell As Range
' Instellen van de bereiken van de maanden Weekdagen
Set Rngjanuari = Range("B5:F10")
Set Rngfebruari = Range("B12:F17")
Set Rngmaart = Range("B19:F24")
Set Rngapril = Range("B26:F31")
Set Rngmei = Range("B33:F38")
Set Rngjuni = Range("B40:F45")
Set Rngjuli = Range("K4:o10")
Set Rngaugustus = Range("K12:o17")
Set Rngseptember = Range("K19:o24")
Set Rngoktober = Range("K26:o30")
Set Rngnovember = Range("K33:o38")
Set Rngdecember = Range("K40:o45")
'Instellen van de bereiken van de maanden weekenddagen
Set RngjanuariWeekend = Range("G5:H10")
Set RngfebruariWeekend = Range("g12:H17")
Set RngmaartWeekend = Range("g19:H24")
Set RngaprilWeekend = Range("g26:H31")
Set RngmeiWeekend = Range("g33:H38")
Set RngjuniWeekend = Range("g40:H45")
Set RngjuliWeekend = Range("p4:Q10")
Set RngaugustusWeekend = Range("p12:Q17")
Set RngseptemberWeekend = Range("p19:Q24")
Set RngoktoberWeekend = Range("p26:Q30")
Set RngnovemberWeekend = Range("p33:Q38")
Set RngdecemberWeekend = Range("p40:Q45")
' De maanden samen voegen tot één bereik
' Door het het codewoord union
'sectie controle
'---------------------------------------------------------------------------------------------
'Controleren op het volgende:
' Kijken of een in de combox een slectie is gemaakt met ee dagdeel zo ja bepalen wat het dagdeel is.
' Bereik (range)
' Kijken of hij niet buiten de kalender valt
' Controleren of er in het bereik geen cellen zijn zonder datum.
' Controleren of de gekozen afwezigheid mag doorlopen in het weekend
' Controleren of er zich al geen afwezigheid in het bereik
' Indien er een de gekozen afwezigheidscode een dagdeel bevat deze afzonderen uit de tekst
' En nagaan met welke vorm dit overeenkomt.
' volledige dag = rechthoek
' Halve dag = driehoek
StrGekozenDagDeel = Right(StrVerLofCodeKeuze, Len(StrVerLofCodeKeuze) - InStrRev(StrVerLofCodeKeuze, " "))
If StrGekozenDagDeel = "voormiddag" Or StrGekozenDagDeel = "namiddag" Then
StrsoortSymbool = figuur.msoShapeRightTriangle
Else
StrsoortSymbool = figuur.msoShapeRectangle
End If
' Een selectie maken aan de hand van het Type selctie
' De Selectie kan zijn Range of Rectangle
Select Case strTypeSelection
Case "Range"
Set RngVerlofBereik = Selection
Set RngMaandenWatched = Union(Rngjanurai, Rngfebruari, Rngmaart, Rngapril, Rngmei, Rngjuni, Rngjuli, Rngaugustus, Rngseptember, Rngoktober, Rngnovember, Rngdecember)
Set RngWeekendWatched = Union(RngjanuariWeekend, RngfebruariWeekend, RngmaartWeekend, RngaprilWeekend, RngmeiWeekend, RngjuniWeekend, RngjuliWeekend, RngaugustusWeekend, RngseptemberWeekend, RngoktoberWeekend, RngnovemberWeekend, RngdecemberWeekend)
Set RngIntersectMaanden = Intersect(RngVerlofBereik, RngMaandenWatched)
Set RngIntersectWeekenden = Intersect(RngVerlofBereik, RngWeekendWatched)
