>> Das Ergebnis möchte ich in der zweiten txtBox wiedergeben.
Welche zweite Textbox? Was ist dein "Ergebnis"?
TextBox1.Text = "Ergebnis"
Grüße
PS: Prüfst du ein Datum per IsNumeric() dann wird dir Wahr geliefert (weil ein Datum intern als Zahl gehandhabt wird). Eine Zahl ist aber nicht zwingend ein Datum, zumindest keines das viel Sinn macht (45 wäre z.b. der 13.02.1900).
Wenn du also wissen willst, ob du ein Ausdruck als Datum zu werten ist, dann solltest du IsDate() verwenden.
(beachte die Reihenfolge in der die Prüfung stattfindet; IsDate() kommt vor IsNumeric() ... aus dem zuvor genannten Grund)
If IsDate(txt_Eingabe.Text) Then
MsgBox "Eingabe ist ein Datum (" & CDate(txt_Eingabe.Text) & ").", vbInformation
ElseIf IsNumeric(txt_Eingabe.Text) Then
MsgBox "Eingabe ist eine Zahl.", vbInformation
Else
MsgBox "Eingabe ist weder eine Zahl noch ein Datum.", vbInformation
End If
Gib z.B. mal den 12.13.2020 ein und sieh was dir ausgegeben wird (wie also die Eingabe verarbeitet wird). Anschließend gib mal 13.25.2020 ein.
|