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

Userform Textbox formatieren als Zeit

Forumthread: Userform Textbox formatieren als Zeit

Userform Textbox formatieren als Zeit
11.01.2005 18:04:48
Mark
Hallo,
wenn ich in meiner Textbox eine Zahl z.B. 8 eingegebe und die Textbox verlasse soll daraus 8:00 bzw. aus z.B. 10 soll 10:00 werden. Und die Textbox soll auf fünf Zeichen begrenzt werden. Trotzdem soll man auch z.B. 10:12 eingeben können.
1 0 : 0 0
1 2 3 4 5 Zeichen
Ich hoffe Ihr könnt mir weiter helfen.
Tausend Dank im voraus
Mark
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Userform Textbox formatieren als Zeit
Dennis
Hallo,
den Code für die Textbox eingeben:

Private Sub TextBox1_Exit(ByVal cancel As MSForms.ReturnBoolean)
TextBox1 = Format(Application.WorksheetFunction.Substitute(TextBox1, ":", ""), "00:00")
End Sub

Gruß Dennis
AW: Userform Textbox formatieren als Zeit
11.01.2005 19:43:47
Mark
Hallo,
danke für die schnelle Antwort, der o.g. Code funktioniert soweit.
Nur das wenn ich eine Zahl eingebe steht sie am Ende.
Was müßte man ändern damit sie am Anfang steht?
Mark
Anzeige
AW: Userform Textbox formatieren als Zeit
Beni
Hallo Mark,
Gruss Beni

Private Sub TextBox1_Exit(ByVal cancel As MSForms.ReturnBoolean)
Dim w, t As String
w = TextBox1.Value
If Left(w, 1) > 2 Then w = "0" & w
l = Len(w)
For I = l To 3
w = w & 0
Next I
t = Left(w, 2) & ":" & Right(w, 2)
TextBox1 = Format(Application.WorksheetFunction.Substitute(t, ":", ""), "00:00")
'TextBox1 = CDate(TextBox1)
End Sub

Anzeige

Forumthreads zu verwandten Themen

Anzeige