Code staat onder het werklad Verlofkalender sjabloon
of kan ik die uit het werklad halen. Daar we per jaar een nieuw werklad maken?
Omschrijving probleem
Met de combox maak ik de selectie en doe ik de code onder
Private Sub CmboVerLofCodes_Change()
Ik controleer daar of de selectie niet door loopt in het wekend of buiten de kalender valt.
Zover geen probleem krijg de juiste melding.
Dus selecteer ik de juist dag of dagen dan word de code niet uitgevoerd daar de code enkel werkt bij CmboVerLofCodes_Change.
Dus dacht ik ik zorg dat het invoervak leeg gemaakt word. Maar dan het begint hij omdat het een change is voor de combox en doet nooit de exit sub.
Hoe pas ik dit aan
If RngIntersect Is Nothing Then
MsgBox "De gekoze selectie valt buiten de kalender", vbExclamation
cmboVerlofCodes.Value = "" ' met deze lijn extra nooit exit sub zonder wel
Exit Sub
'ElseIf RngIntersect Is Nothing And cmboVerlofCodes.Value = "" Then
'Exit Sub