Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
440to444
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
440to444
440to444
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
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

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
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

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige