Datumeingabe mit aktuellem Datum vergleichen

16/09/2007 - 11:29 von Peter | Report spam
Hallo Leute,
ich habe ein Problem mit einer Userform. Eine Userform, die auf die
Eingabe eines Datums in einer TextBox1 wartet, schreibt dieses Datum
nach Eintrag und Klicken auf ein CommandButton1 "Datenübernehmen" in
die Zelle A1. Das funktioniert so weit.
Ich möchte nun vor dem "Datenübernehmen" das Datum aus Textbox1 mit
dem aktuellen Datum vergleichen, um eine Datumseingabe, die in der
Zukunft liegt, mit einer MsgBox-Fehlermeldung zu quittieren.

Private Sub Datenübernehmen_Click ()
If Not IsDate(TextBox1) Then
MsgBox ("Kein gültiges Datum!")
Exit Sub
End If
If TextBox1.value > Date then
MsgBox ("Datum falsch, es liegt in der Zukunft")
Exit Sub
End If

A1 = TextBox1.value

End Sub

Die zweite If-Abfrage funktioniert nicht. Wieso??? Meine Vermutung
ist, dass das Datum in der TextBox1 ja in einem Textfeld steht und von
daher das Format String hat. Ich habe auch schon versucht, den Inhalt
von der TextBox1 als Datum zu formatieren, aber das hat nicht
geklappt. Der Befehl war TextBox1 = Format(TextBox1, "dd.mm.yyyy")
ganz am Anfang des o.a. Makros.

Gruß
Peter
 

Lesen sie die antworten

#1 Eberhard Funke
16/09/2007 - 11:52 | Warnen spam
Am Sun, 16 Sep 2007 02:29:57 -0700 schrieb Peter:

If TextBox1.value > Date then



Hallo Peter,

probier's mal mit

If CDate(TextBox1.Value) > Date Then

Mit freundlichen Grüssen Eberhard
XP home XL 2000
Eberhard(punkt)W(punkt)Funke(at)t-online.de

Ähnliche fragen