Datum controleren en wijzigen

[nando64]

Ik wil bij het activeren van een worksheet controleren of de ingevoerde datum in een bepaalde cel (A2) juist is.
Dit doe ik via msgbox. Zo niet, dan moet deze via een inputbox worden gewijzigd.

Nu heb ik hiervoor de volgende code, echter het werkt niet zoals ik wil.

Weet iemand een oplossing?

Private Sub Worksheet_Activate()

MsgBox "Is de ingevoerde datum juist?", vbYesNo, "Datum"

If vbYes = True Then
    
    Exit Sub

ElseIf vbNo = True Then

    Range("A2") = CDate(InputBox("Vul de datum in", "Datum Invoer", Format(Now, "dd mmmm yyyy")))

End If

End Sub

Gr,
Nando

 

[Roncancio]

Het is niet echt praktisch om gebruikers steeds via msgbox te waarschuwen.
Bovendien kan je code wat korter.

Private Sub Worksheet_Activate()

If MsgBox("Is de ingevoerde datum juist?", vbYesNo, "Datum") = vbNo Then
    Range("A2") = CDate(InputBox("Vul de datum in", "Datum Invoer", Format(Now, "dd mmmm yyyy")))
End If

End Sub

Met vriendelijke groet,


Roncancio

 

[nando64]

Roncancio,

Ik weet dat het niet praktisch is maar toch bedankt, het werkt.