Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
112to116
112to116
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

textfeld prüfung

Re: textfeld prüfung
16.04.2002 23:21:57
Andreas Gelezun

Ist wahrscheinlich nicht die eleganteste Lösung, aber hier klappt es wunderbar:

Sub Test_auf_Datum()
If Len(TextBox1.Text) = 8 Then
If Mid$(TextBox1.Text, 3, 1) = "." And Mid$(TextBox1.Text, 6, 1) = "." Then
If IsNumeric(Left$(TextBox1.Text, 2)) And IsNumeric(Mid$(TextBox1.Text, 4, 2)) And IsNumeric(Mid$(TextBox1.Text, 7, 2)) Then
MsgBox "Datum ist ok !"
Else
GoTo Falsch
End If
Else
GoTo Falsch
End If
Else
Falsch:
MsgBox "Die Eingabe muß im Format TT.MM.JJ erfolgen !"
End If
End Sub


Erklärung:
Zuerst der Test, ob der String 8 Zeichen lang ist, dann der Test, ob an der Stelle 3 und 6 auch Punkte stehen, dann der Test, ob die Zeichen an der Stelle 1 und 2, 4 und 5, 7 und 8 auch Zahlen sind und das war es schon.

Gruß
Andreas

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
textfeld prüfung
16.04.2002 15:22:49
jhaustein
hallo gemeinschaft
leider wiederholung der frage, weil nicht ausreichend beantwortet
problem mit textfeldprüfung:

möchte ganz gerne, dass in ein datumstextfeld nur eingabengemacht werden können die das format 01.02.00 haben, wenn man aus versehen ein anderes format eingibt, dann soll eine msgbox kommen mit ensprechender fehlermeldung

habt ihr das ideen

jörg

hast recht aber ist für meine zwecke ok danke
17.04.2002 08:45:17
jhaustein
danke andreas

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige