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

Forumthread: Datum in Textbox

Datum in Textbox
12.02.2013 10:04:14
Philipp
Hallo Zusammen,
ich habe eine Textbox in die ein Datum eingegeben werden soll. Das Format soll tt.mm.jjjj sein. Das habe ich soweit hinbekommen :
Private Sub TextBox7_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
With TextBox7
If IsDate(.Text) Then
.Text = Format$(TextBox7.Text, "dd.mm.yyyy")
ElseIf Len(.Text) > 0 Then
Cancel = True
.SelStart = 0
.SelLength = Len(TextBox7.Text)
End If
End With
End Sub
Ist es möglich das ich ein Datum ohne Punkte eingebe und diese dann automatisch erzeugt werden: 120213 => 12.02.2013?
Vorab vielen Dank.
gruß
Philipp

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datum in Textbox
12.02.2013 11:39:51
Hugo
Hallo,
Private Sub TextBox7_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
With TextBox7
If IsDate(.Text) Or IsDate(Format(.Text, "00-00-0000")) Then
.Text = Replace(Format$(TextBox7.Text, "00-00-0000"), "-", ".")
ElseIf Len(.Text) > 0 Then
Cancel = True
.SelStart = 0
.SelLength = Len(TextBox7.Text)
End If
End With
End Sub
Gruß
Hugo

Anzeige
AW: Datum in Textbox
12.02.2013 11:43:58
Hugo
Hallo,
Ergänzung: Eingaben im Format TTMMJJJJ werden umgewandelt.
Gruß
Hugo

AW: Datum in Textbox
12.02.2013 11:59:09
Philipp
Hallo Hugo,
vielen Dank für die schnelle Antwort.
Leider funktioniert dies nicht wie gewünscht.
Wenn ich nun 120213 eingebe markiert er den Text nur wandelt aber nichts um.
Gebe ich 12.02.13 ein wandelt er es um in : 00.12.0213
Danke.

Anzeige
AW: Datum in Textbox
12.02.2013 12:08:08
Hugo
Hallo,
daher habe ich ja auch geschrieben: Format TTMMJJJJ
wird umgewandelt - nicht TTMMJJ
Gruß
Hugo
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
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