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

Forumthread: Zeit in TextBox

Zeit in TextBox
04.11.2012 19:58:49
Frank
Hallo Zusammen!
Meine Frage ist folgende:
Auf einer UF befindet sich u. a. TextBox15. In diese möchte ich eine Zeitangabe eintragen, Format: mm:ss. Der Doppelpunkt sollte automatisch gesetzt werden. Bitte das Format beachten!
Wie muss ich das Anstellen?
L.G. Frank H.

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Zeit in TextBox
04.11.2012 20:09:21
Hajo_Zi
Hallo Frank,
setze maxLength auf 5
Option Explicit
Private Sub TextBox11_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'   erstellt von HajoZiplies@web.de   Stand 06.06.04
Select Case KeyAscii
Case Asc("0") To Asc("9")
Case Asc(":")
If Len(TextBox11) = 0 Then
KeyAscii = 0
Else
If Len(TextBox11) - Len(Application.Substitute(TextBox11, ":", "")) = 2 Then
KeyAscii = 0
ElseIf Len(TextBox11) > 1 Then
If Mid(TextBox11, Len(TextBox11), 1) = ":" Then KeyAscii = 0
Else
KeyAscii = Asc(":")
End If
End If
Case Else
KeyAscii = 0
End Select
End Sub
Private Sub TextBox11_Change()
If Len(TextBox11) = 2 Then
If InStr(TextBox11, ":") = 0 Then TextBox11 = TextBox11 & ":"
End If
End Sub

Anzeige
AW: Zeit in TextBox
04.11.2012 20:23:42
Frank
Hallo Hajo!
Nach dem Übertrag in die Tabelle ist es auch wieder Std./Min/Sec!
Formatiert als mm:ss. Bsp. Eingabe 05:07, Ergebnis in Tabelle: 07:00
Was mache ich falsch?
L.G. Frank H.

AW: Zeit in TextBox
04.11.2012 20:29:30
Hajo_Zi
Hallo Frank,
Dir ist schon klar das eine Textbox Text enhält?
Range("A1")=Cdate("00:" & Textbox11)
würde ich mal vermuten.
Gruß Hajo

Anzeige
AW: Zeit in TextBox
04.11.2012 20:37:33
Frank
Hallo Hajo!
So funzt es! Super! Vielen Dank!
Gruß Frank H.
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige