Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Datumseingabe in Textbox, Userform

Forumthread: Datumseingabe in Textbox, Userform

Datumseingabe in Textbox, Userform
07.04.2003 08:37:08
Forum
Hallo

ich bin gerade bei mir einen Code für die eingabe in einer Userform zu entwickeln. Der Code klappt eigentlich recht gut nur habe ich ein Problem wird 12.25 eingegeben wird bei Enter die Jahreszahl ergänzt alsso 12.25.2003 und die Eingabe wird als Datum erkannt und umgewandelt in 25.12.03, was eigentlich nicht sein sollte.

Gruß

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Datumseingabe in Textbox, Userform
07.04.2003 09:51:45
FCH

Hi Hajo,

Das wirst du wohl nicht verhindern können, da für VBA der 12.25.2003 nunmal ein Datum ist.

Kannst du nicht eine zusätzliche Prüfung einfügen, nach dem Motto, der Monat darf nicht größer als 12 sein:

Private Sub TextBox6_AfterUpdate()
' Jahreszahl vom aktuellen Jahr ergänzen falls nicht vorhanden

If Len(TextBox6) - Len(Application.Substitute(TextBox6, ".", "")) = 1 And CDbl(Right(TextBox6, 2)) < 13 Then
TextBox6 = TextBox6 & "." & Year(Date)
End If
If IsDate(TextBox6.Text) And CDbl(Right(TextBox6, 2)) < 13 Then
If Format(CDate(TextBox6.Value), "dd.mm.yy") <> TextBox6 Then
MsgBox "Das Datum wurde übersetzt"
End If
TextBox6 = Format(CDate(TextBox6.Value), "dd.mm.yy")
Else
TextBox6 = ""
End If
End Sub

Gruß
FCH

Anzeige
Re: Datumseingabe in Textbox, Userform
07.04.2003 11:57:56
Forum

Hallo FCH

das wäre ein Ansatz, aber der Aufwand ist mir zu Hoch falls jemand z.B. 12.25.03 eingibt. Da muß ich wohl mit dem Hinweis leben das Datum übersetzt wurde.

Gruß

;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

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