Hoi Dizzl,
Heb het zo opgelost:
Het probleem zat hem dat het antwoord van de inputbox gedeclareerd was als Integer. Heb het dan een string van gemaakt. Na de controle heb ik voor het Jaar, CInt(Antwoord) meegegeven.
Dim Jaar As Integer
Dim Antwoord As String
Antwoord = InputBox("geef jaartal", "Jaar XXXX")
If (Len(CStr(Antwoord)) < 1) Then
MsgBox "De invoer wordt niet aanvaard." & vbCrLf & "Je hebt niets ingevoerd", 48, "Fout!"
Exit Sub
End If
If Not IsNumeric(Antwoord) Or IsDate(Antwoord) Then
MsgBox "De invoer wordt niet aanvaard." & vbCrLf & "Je hebt letters of een datum ingevoerd", 48, "Fout!"
Exit Sub
End If
If Val(Antwoord) < 1900 Or Val(Antwoord) > 9999 Then
MsgBox "Toets een jaar in die begint van:" & vbCrLf & "1900 tot en met 9999", 64, "Jaar"
Exit Sub
End If
Jaar = CInt(Antwoord)
Alvast bedankt voor jullie oplossende bijdrage. Nu nog zien de code aan een rapport te hangen. In word en Excel kan de code van de Vlaamse feestdagen in een Macro gezet worden. Zo heb je een leuk document om de feestdagen niet meer te vergeten.
Diezel