inputbox invoer

[Halbertsma]

Hallo,

Ik heb een inputbox waar de gebruiker een datum in typt (in de vorm van d-mm-jjjj)

f = InputBox("datum?" & vbCrLf & "Typ de notatie als d-mm-jjjj", "Datum")

Nu wil ik graag dat het script een melding geeft wanneer iets anders dan een datum wordt ingegeven.
Nu loopt het script gewoon door, ook als er alleen '5' wordt ingegeven.
Zelfs een lege invoer wordt geaccepteerd.

Kan iemand mij helpen?

Alvast bedankt.

 

[snb]

Gebruik hiervoor de ingebouwde voorzieningen van Excel: Userfom/ Datetimepickercontrol.

 

[Halbertsma]

Gebruik hiervoor de ingebouwde voorzieningen van Excel: Userfom/ Datetimepickercontrol.

Hoe werkt dit dan? De helpfunctie kan me er niet aan helpen..

 

[Halbertsma]

Halbertsma,

Bedoel je zoiets?
zie code.


Code:
Sub dat()
[F2] = InputBox("datum?" & vbCrLf & "Typ de notatie als d-mm-jjjj", "Datum")
If Message = False Then MsgBox "Alleen een datum toegestaan"
End Sub

@Hoornvan
Bedankt voor uw reactie. In eerste instantie dacht ik dat het werkte: Wanneer ik niks of een gewoon getal invul werkt de formule naar behoren.
Vul ik echter 4-12-2009 (of een andere datum in) dan krijg ik de zelfde foutmelding. Kortom, ik kan nu niks invoeren dat geaccepteerd wordt.

 

[Hoornvan]

Halbertsma,

Dit had ik ook gemerkt en heb daarom mijn sugestie verwijderd, Sorry.

 

[Halbertsma]

Halbertsma,

Dit had ik ook gemerkt en heb daarom mijn sugestie verwijderd, Sorry.

Helaas. Hopelijk weet iemand anders een goede oplossing.

 

[snb]

Sub tst()
  Do
    c0 = InputBox("Datum: ")
  Loop Until IsDate(c0)
End Sub

 

[Halbertsma]

Sub tst()
  Do
    c0 = InputBox("Datum: ")
  Loop Until IsDate(c0)
End Sub

Helaas, dit brengt geen geluk. Als ik 1 invul dan gaat het programma gewoon door.

edit: Blijkbaar deed ik de eerste keer iets mis, het werkt namelijk wel!

 

[snb]

Dat wil bij mij niet lukken. Ergo: ik geloof je waarneming niet.

Alternatief:

    Do
        c0 = InputBox("Datum: ")
    Loop Until Format(c0, "dd-mm-yyyy") = c0

 

[Halbertsma]

Dat wil bij mij niet lukken. Ergo: ik geloof je waarneming niet.

Alternatief:

    Do
        c0 = InputBox("Datum: ")
    Loop Until Format(c0, "dd-mm-yyyy") = c0

Edit: Excuus, het blijkt wel te werken. Bedankt!

Kan je iets dergelijks ook instellen als je een userform hebt gemaakt met daarin een textbox? Zo ja, waar moet je dat dan neer zetten?

 

[snb]

Staat hier voor je klaar. (wel even registreren).

 

[Halbertsma]

Staat hier voor je klaar. (wel even registreren).

Bedoel je de date-timepickercontrol? Ik zal even kijken hoe het werkt.