Anfangs und Enddatum in Textboxen

Forumthread: Anfangs und Enddatum in Textboxen

02.02.2009 23:08:42

Leon

Hi Leute
In Textbox1 habe ich ein Anfangsdatum den ich in Tabelle schreibe und in Textbox2 habe ich ein Enddatum den ich auch in Tabelle schreibe.
Wie kann ich erreichen, daß wenn ich in Textbox2 das Datum eingebe die Prüfung erfolgt ob das Datum sicher größer als das Anfangsdatum ist.
Für Eure hilfe danke ich Euch
Gruß
Leon

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

If CDate(Textbox2)>CDate(Textbox1) then

02.02.2009 23:36:00

NoNet

Hallo Leon,
zunächst musst Du sicherstellen, dass in die Textboxen auch Datumsangaben eingegeben wurden und danach, dass das Datum der 2.Textbox grösser als das der 1.Textbox ist :

VBA-Code:

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'Prüfen, ob Datum in Textbox1 eingegeben wurde :
If Not IsDate(TextBox1) And Trim(TextBox1) <> "" Then

        MsgBox "Bitte Datum eingeben"

        Cancel = True'Cursor weiterhin in Textbox1 belassen
End If
End Sub
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'Prüfen, ob Datum in Textbox2 eingegeben wurde :
If Not IsDate(TextBox2) And Trim(TextBox2) <> "" Then

        MsgBox "Bitte Datum eingeben"

        Cancel = True'Cursor weiterhin in Textbox2 belassen
ElseIf IsDate(TextBox2) Then
If CDate(TextBox1) > CDate(TextBox2) Then

            MsgBox "Datum der Textbox2 muss grösser als datum der Textbox1 sein !"

            Cancel = True'Cursor weiterhin in Textbox2 belassen
End If
End If
End Sub

Gruß, NoNet

					 AW: Textbox1 kleiner als Textbox2 geht
				
					Leon
				
Hi NoNet

Es klappt wunderbar mit Deinem Code. 

Nochmals Danke an Deine Hilffestellung

Gruß

Leon

					 AW: Anfangs und Enddatum in Textboxen
				
					Gerd
				
Hallo Leon,

z.B. ins TextBox2_Exit:

If CDate(TextBox1) >= CDate(TextBox2) Then

Cancel = True

End If

Dass in die beiden Boxen nur Datümer reinpassen, hast bestimmt schon sichergestellt.

Gruß Gerd

AW: Textbox1 kleiner als Textbox2 geht

03.02.2009 07:35:00

Leon

Hi NoNet
Es klappt wunderbar mit Deinem Code.
Nochmals Danke an Deine Hilffestellung
Gruß
Leon

AW: Anfangs und Enddatum in Textboxen

02.02.2009 23:39:43

Gerd

Hallo Leon,
z.B. ins TextBox2_Exit:
If CDate(TextBox1) >= CDate(TextBox2) Then
Cancel = True
End If
Dass in die beiden Boxen nur Datümer reinpassen, hast bestimmt schon sichergestellt.
Gruß Gerd

Beliebteste Forumthreads (12 Monate)

Anfangs und Enddatum in Textboxen

Forumthread: Anfangs und Enddatum in Textboxen

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Anfangs und Enddatum in Textboxen

Forumthread: Anfangs und Enddatum in Textboxen

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread