Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Eingabewerte überprüfen

Eingabewerte überprüfen
11.06.2004 16:12:51
Daniel
Hallo liebes Forum
Ich brauche dringend Hilfe und würde mich freuen, wenn jemand kurz mein Problem angehen könnte:
In einer textbox möchte ich überprüfen, ob der eingegebene Wert folgendes Format hat: dd.mm.jjjj
am liebsten wäre mir eine Funktion, die mir True oder False zurückgibt.
Hat jemand eine Idee, wie das geht?
Danke euch schon mal im Voraus.
Gruss
Daniel
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Eingabewerte überprüfen
Reinhard
Hallo Daniel,
gib mal bei google ein:
format textbox site:www.herber.de
Gruß
Reinhard
AW: Eingabewerte überprüfen
11.06.2004 16:20:08
Matthias
Hallo Daniel,
wie wär's damit:

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1 = Format(TextBox1, "dd/mm/yyyy")
If Not IsDate(TextBox1) Then
MsgBox "Falsche Datumsformat!"
Cancel = True
End If
End Sub

Gruß Matthias
Anzeige
AW: Eingabewerte überprüfen
11.06.2004 16:31:33
Daniel
Hallo Matthias
Super!!!
Vielen Dank, ich hab's soeben erfolgreich getestet.
Gruss
Daniel
AW: Eingabewerte überprüfen
Nike
Hi,
mal so checken?

Private Sub CommandButton1_Click()
If FormCheck(TextBox1.Text) Then
MsgBox "Format stimmt"
Else
MsgBox "Format stimmt nicht"
End If
End Sub

Function FormCheck(strIn As String) As Boolean
Dim datCheck As Date
FormCheck = False
If Mid(strIn, 3, 1) = "." And Mid(strIn, 6, 1) = "." Then
If IsNumeric(Left(strIn, 2)) And IsNumeric(Mid(strIn, 4, 2)) And IsNumeric(Right(strIn, 4)) Then
On Error Resume Next
datCheck = CDate(strIn)
If Err.Number > 0 Then
FormCheck = True
End If
On Error GoTo 0
End If
End If
End Function
Bye
Nike
Anzeige
AW: Eingabewerte überprüfen
11.06.2004 16:53:02
Daniel
Hi Nike
Danke für deine Hilfe.
Ich habe eine kleine Korrektur machen müssen, die Funktion hatte beim err.number nicht ganz geklappt. musste > durch = ersetzen.
dann hat's funktioniert.

Function FormCheck(strIn As String) As Boolean
Dim datCheck As Date
FormCheck = False
If Mid(strIn, 3, 1) = "." And Mid(strIn, 6, 1) = "." Then
If IsNumeric(Left(strIn, 2)) And IsNumeric(Mid(strIn, 4, 2)) And IsNumeric(Right(strIn, 4)) Then
On Error Resume Next
datCheck = CDate(strIn)
MsgBox Err.Number
If Err.Number = 0 Then
FormCheck = True
End If
On Error GoTo 0
End If
End If
End Function

vielen Dank!!
Gruss
Daniel
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige