Anzeige
Archiv - Navigation
1044to1048
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Anfangs und Enddatum in Textboxen

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

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

Betreff
Datum
Anwender
Anzeige
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
Anzeige
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

315 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige