Herbers Excel/VBA-Archiv

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

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

abfrage, ob Wert gültiges datum ist

• abfrage, ob Wert gültiges datum ist von ray vom 01.09.2004 14:43:39
• AW: abfrage, ob Wert gültiges datum ist - von Andy am 01.09.2004 15:02:07
  • AW: abfrage, ob Wert gültiges datum ist - von ray am 01.09.2004 15:25:40
    • AW: abfrage, ob Wert gültiges datum ist - von Andy am 01.09.2004 16:04:32
      • Danke, aber das hilft nicht... oT - von ray am 01.09.2004 16:19:55
        • AW: Danke, aber das hilft nicht... oT - von Bert am 01.09.2004 16:20:57
          • AW: Danke, aber tBoxen sollen bleiben oT - von ray am 01.09.2004 17:02:16
• IsDate-Funktion - von Boris am 01.09.2004 17:41:52
  • Danke Boris, mT - von ray am 02.09.2004 07:48:00
    • IsDate oder Not IsDate - von Boris am 02.09.2004 09:03:42

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"