@Matthias / Datumseingabe Format prüfen in Textbox

Forumthread: @Matthias / Datumseingabe Format prüfen in Textbox

19.07.2006 09:29:23

Martin

Hallo Zusammen
habe ein Problem mit dem Format des Datums welches über eine Textbox eingelesen wird.
Wie kann ich die Datumseingabe auf Ihre Gültigkeit im Euro Standart prüfen?
Hier der Script:
~


Private Sub CommandButton1_Click()
Dim dat As Date
Cur_Z = ActiveCell.Row
Cur_S = ActiveCell.Column
If IsDate(TextBox1) Then 'hier wird die Texbox geprüft
dat = CDate(TextBox1) 'jetzt passiert der Fehler, wenn zB das Datum falsch
'eingegeben wird "31.06.06" wir es als US "06.06.31"
'interpretiert und ebenso fals in die Zelle abgefüllt.
If CheckBox1.Value = False Then
Cells(Cur_Z, Cur_S).Value = dat - 14
Range("U13").Select
Else
Cells(Cur_Z, Cur_S).Value = dat
Range("U13").Select
End If
Unload Me
Range("U13").Select
Else
MsgBox "kein gültiges Datum!", vbExclamation
Range("U13").Select
End If
End Sub

~
Gruss
Martin

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: @Matthias / Datumseingabe Format prüfen in Textbox

19.07.2006 12:09:51

KlausL

Hallo,
ich habe den Code um "Format" erweitert
If CheckBox1.Value = False Then
Cells(Cur_Z, Cur_S).Value = Format(dat, "DD.MM.YYYY")-14
Range("U13").Select
Else
Cells(Cur_Z, Cur_S).Value = Format(dat, "DD.MM.YYYY")
Range("U13").Select
End If
Unload Me
Range("U13").Select
Gruß KlausL

AW: Datumseingabe Format prüfen in Textbox

19.07.2006 12:41:16

Martin

Hallo KlausL
Danke für Deine Hilfe, habe ich bereits versucht, jedoch ist die prüfung ob es sich um ein gültiges Datum handelt nicht gegeben. Das Script wandelt das falsche Datum 31.06.06 in 06.06 1931 um. Wie kanni ich diese Fehleingaben vorgängig auf Ihre Euro ISO prüfen?
Die Texbox kann in den Eigenschaften nicht als Datum voreingestellt werden oder doch?
Ebenfalls ist die Format definition nicht ganz richtig in Deinem Vorschlag die - 14 muss gleich nach dat erfolgen, aber da bin ich auch darüber gestolpert ;0), aber deshalb benötige ich auch immer wieder Unterstützung.
Cells(Cur_Z, Cur_S).Value = Format(dat - 14, "DD.MM.YYYY")
Gruss und Danke für die Hilfe
Vieleicht hast Du eine erweiterte Lösung für die Texbox Eingabeprüfung.
Martin

AW: @Matthias / Datumseingabe Format prüfen in Textbox

19.07.2006 13:48:15

Martin

Habe doch noch einen Tread gefunden im Archivs von Matthias
Original Tread von Mattias G
~
*********************************************************
Hallo Josef,
mein Vorschlag:


Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim dat As String
dat = IstDatum(TextBox1)
If dat = "" Then
MsgBox "Kein gültiges Datum!"
Cancel = True
Else
TextBox1 = dat
End If
End Sub

Function IstDatum(ByVal d As String) As String
Const jMax = 2060
Const jMin = 1950
Dim d1 As String, d0 As Date, j As Integer
d = Replace(d, ".", "")
If Len(d) = 8 Or Len(d) = 6 Then
d1 = Left(d, 2) & "." & Mid(d, 3, 2) & "." & Right(d, Len(d) - 4)
If IsDate(d1) Then
d0 = CDate(d1)
If (Year(d0) >= jMin And Year(d0) End If
End If
End Function
Es werden auch 2-stellige Jahreszahlen toleriert. Wenn die Eingabe gültig ist, wird im Eingabefeld das Datum im Format TT.MM.JJJJ eingetragen. Ansonsten erscheint eine Fehlermeldung und die Textbox wird nicht verlassen.
Gruß Matthias
*************************************************
~
Danke Euch beiden für die Hilfestellung
Gruss
Martin

Beliebteste Forumthreads (12 Monate)

@Matthias / Datumseingabe Format prüfen in Textbox

Forumthread: @Matthias / Datumseingabe Format prüfen in Textbox

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

@Matthias / Datumseingabe Format prüfen in Textbox

Forumthread: @Matthias / Datumseingabe Format prüfen in Textbox

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread