Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

abfrage, ob Wert gültiges datum ist

Betrifft: abfrage, ob Wert gültiges datum ist von: ray
Geschrieben am: 01.09.2004 14:43:39

Hallo,
damit lasse ich ein datum ausgeben. (der cuser sprigt bei 2 eingaben in nächste feld):

ZtRv = TextBox1 & "." & TextBox2 & "." & TextBox3

Wie kann ich prüfen, ob ZtRv ein gültiges Datum ist und nicht z. B. 00.01.03?

Viele Grüße aus dem noch immer trockenen Hamburg

Ray

  


Betrifft: AW: abfrage, ob Wert gültiges datum ist von: Andy
Geschrieben am: 01.09.2004 15:02:07

Hallo!
Du kannst doch gleich das aktuelle Datum ausgeben lassen.. Code unten..

Sheets("TAbell1").Range("A1") = Format(Date, "dd.mm.yyyy")

Gruß
Andy


  


Betrifft: AW: abfrage, ob Wert gültiges datum ist von: ray
Geschrieben am: 01.09.2004 15:25:40

Danke, aber ich muß meine Textboxen benutzen. wie baue ich Format(Date, "dd.mm.yyyy")
dort ein?
gruß ray


  


Betrifft: AW: abfrage, ob Wert gültiges datum ist von: Andy
Geschrieben am: 01.09.2004 16:04:32

Hi
Wie das mit textboxen funktioniert weiß ich leider nicht, da ich nocht nicht damit gearbeitet habe.
schaue doch mal unter
https://www.herber.de/forum/archiv/456to460/t457133.htm nach.
vielleicht ist das ein ansatz.

Gruß
Andy


  


Betrifft: Danke, aber das hilft nicht... oT von: ray
Geschrieben am: 01.09.2004 16:19:55

r


  


Betrifft: AW: Danke, aber das hilft nicht... oT von: Bert
Geschrieben am: 01.09.2004 16:20:57

Nimm drei Comboboxen und lass die Werte aussuchen, dann kanns auch keine Fehler geben.

Bert


  


Betrifft: AW: Danke, aber tBoxen sollen bleiben oT von: ray
Geschrieben am: 01.09.2004 17:02:16

s


  


Betrifft: IsDate-Funktion von: Boris
Geschrieben am: 01.09.2004 17:41:52

Hi Ray,

MsgBox IsDate(TextBox1 & "." & TextBox2 & "." & TextBox3)

Grüße Boris


  


Betrifft: Danke Boris, mT von: ray
Geschrieben am: 02.09.2004 07:48:00

Hallo Boris, zu isDate sagt F1:

Dim Datum1, Datum2, KeinDatum, Test1
Datum1 = "February 12, 1969": Datum2 = #2/12/69#: KeinDatum = "Hallo"
Test1 = IsDate(Datum1) ' Liefert True.
Test1 = IsDate(Datum2) ' Liefert True.
Test1 = IsDate(KeinDatum) ' Liefert False.

leider verstehe ich das nicht. wie prüfe ich ohne msgbox?
if isdate(TextBox1 & "." & TextBox2 & "." & TextBox3) = true then weiter sonst...
so gehts nicht, ist aber was ich bräuchte.

Viele Grüße Ray


  


Betrifft: IsDate oder Not IsDate von: Boris
Geschrieben am: 02.09.2004 09:03:42

Hi Ray,

die Negation ist hier der korrekte Weg:

If Not IsDate(TextBox1 & "." & TextBox2 & "." & TextBox3) Then
MsgBox "Kein gültiges Datum"
Else
MsgBox "Gültiges Datum"
End If

Grüße Boris


 

Beiträge aus den Excel-Beispielen zum Thema "abfrage, ob Wert gültiges datum ist"