textfeld prüfung

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
TextBox MsgBox


Excel-Version: excel 2000
  

Re: textfeld prüfung

von: Andreas Gelezun
Geschrieben am: 16.04.2002 - 23:21:57


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

nach unten

Betrifft: textfeld prüfung
von: jhaustein
Geschrieben am: 16.04.2002 - 15:22:49

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

nach oben   nach unten

hast recht aber ist für meine zwecke ok danke
von: jhaustein
Geschrieben am: 17.04.2002 - 08:45:17

danke andreas

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "textfeld prüfung"