Ist Datum in Textfeld?

[Gerd-Wolfgang Götze]

Hallo Excel-Spezialisten,

ich gebe in ein Textfeld ein Datum ein, z. B. 1.5.99 oder 01.05.99
Nun ist dies aber tatsächlich ein String. Diesen String kann ich umwandeln
in den Typ Date.
Wurde aber kein gültiges Datum eingegeben, führt die Umwandlung zu einem
Fehler.

Kann mir jemand helfen, wie ich verhindern kann, das eine falsche Eingabe
möglich ist?

Danke im voraus.

Gruß Gerd

[Jörg Nissen]

Wenn Dein Eingabefeld ein Textfeld ist, gibt es keine falschen Eingaben, da
jede Eingabe in einem Textfeld zulässig ist. Bei der Überprüfung der Eingabe
kannst Du aber über "On Error" einen Umwandlungsfehler abfangen und die
Eingabe erneut anfordern.

Function CheckDate(StringDatum as String) as Date
On Error Goto DatumFehler
CheckDate = DateValue(DatumString)
Exit Function

DatumFehler:
MsgBox("Fehlertext")

End Function

mfg
Jörg Nissen

"Gerd-Wolfgang Götze" schrieb:

[Dieter Persien]

Hallo Jörg, Hallo Gerd-Wolfgang,
einfacher geht es doch mit der Funktion IsDate
Hier ein Auszug aus der Hilfe.

Gibt einen Wert vom Typ Boolean zurück, der angibt, ob ein Ausdruck in ein
Datum umgewandelt werden kann.

Syntax

IsDate(Ausdruck)

Das erforderliche Argument Ausdruck ist ein Wert vom Typ Variant und
enthält einen Datumsausdruck oder einen Zeichenfolgenausdruck, der als
Datum oder Uhrzeit interpretiert werden kann.

Bemerkungen

IsDate gibt den Wert True zurück, wenn der Ausdruck ein Datum ist oder in
ein gültiges Datum umgewandelt werden kann. Andernfalls wird False
zurückgegeben. In Microsoft Windows liegen gültige Datumswerte im Bereich
vom 1. Januar 100 n.Chr bis 31. Dezember 9999 n.Chr. Auf anderen
Betriebssystemen können andere Bereiche gelten.

:-)
--
Mfg
Dieter Persien

Visit our new website http://www.teachware.de

Jörg Nissen <joerg....@netsurf.de> schrieb im Beitrag
<372FE96A...@netsurf.de>...

[Sascha Spiekermann]

Hallo Gerd,
>Hallo Excel-Spezialisten,
Wir fühlen uns geehrt ;-)

>ich gebe in ein Textfeld ein Datum ein, z. B. 1.5.99 oder 01.05.99
>Nun ist dies aber tatsächlich ein String. Diesen String kann ich umwandeln
>in den Typ Date.
>Wurde aber kein gültiges Datum eingegeben, führt die Umwandlung zu einem
>Fehler.
>Kann mir jemand helfen, wie ich verhindern kann, das eine falsche Eingabe
>möglich ist?

Mit der IsDate Funktion kannst Du überprüfen, ob es sich dabei um eine
Eingabe handelt, die in eine Date-Variabel umgewandelt werden kann.
Das ganze dann in eine do ... loop until IsDate(string) Schleife
gepackt und der Benutzer muss ein Datum eingeben oder aufgeben.

-Sascha Spiekermann

Don't hit me, I'm new ;-)

-------------------------------
Please don't reply to the adress above, it's despammed.
Correct Domain: @bigfoot.com

[Gerd-Wolfgang Götze]

Danke,
ich wußte, daß es ganz einfach ist. Hab aber IsDate() nicht gefunden.

Dieter Persien schrieb in Nachricht <01be96cb$8f56a3e0$a100a8c0@persien>...

>Hallo Jörg, Hallo Gerd-Wolfgang,
>einfacher geht es doch mit der Funktion IsDate

Gruß Gerd