Das Archiv des Excel-Forums

textfeld prüfung

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


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

Excel-Beispiele zum Thema "textfeld prüfung"
Freiraum am linken Rand von MS-FORMS-Textfeldern löschen Datumseingabe in Textfeld erzwingen
Textfelder in UserForm beim Start vorbelegen Werte aus einer UserForm-Textfeld-Serie in Arbeitsblatt
Im Textfeld nur Eingabe von 2 Ziffern zulassen, dann zum nächsten Bei Verlassen eines Textfeldes Prüfung, ob Datumseintrag
Im TextFeld einer UserForm-ComboBox Wert aus 2 Spalten anzeigen