case select

[Guest]

since 2007 the code doesn't work

Sub vakantie_check()
Dim datum As Date
datum = Range("datum_vandaag")
Select Case datum
' de afdruk wordt gemaakt tijdens een vakantie
Case Range("herfst_begin") To Range("herfst_eind")
Range("datum_vandaag") = Range("herfst_eind") + 3

Case Range("kerst_begin") To Range("kerst_eind")
Range("datum_vandaag") = Range("kerst_eind") + 3

Case Range("voorjaars_begin") To Range("voorjaars_eind")
Range("datum_vandaag") = Range("voorjaars_eind") + 3

Case Range("mei_begin") To Range("mei_eind")
Range("datum_vandaag") = Range("mei_eind") + 3
End Select
End Sub

whats wrong?

 

[Ron de Bruin]

Hoi John

Use something like this

Sub vakantie_check()
Dim datum As Long
datum = CLng(Range("datum_vandaag"))
Select Case datum
' de afdruk wordt gemaakt tijdens een vakantie
Case CLng(Range("herfst_begin").Value) To CLng(Range("herfst_eind").Value)
Range("datum_vandaag") = Range("herfst_eind") + 3

End Select
End Sub

 

[Guest]

I will try this on monday
thnx

Hoi John

Use something like this

Sub vakantie_check()
Dim datum As Long
datum = CLng(Range("datum_vandaag"))
Select Case datum
' de afdruk wordt gemaakt tijdens een vakantie
Case CLng(Range("herfst_begin").Value) To CLng(Range("herfst_eind").Value)
Range("datum_vandaag") = Range("herfst_eind") + 3

End Select
End Sub