Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Zeit in TextBox

Betrifft: Zeit in TextBox von: Frank H.
Geschrieben am: 04.11.2012 19:58:49

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.

  

Betrifft: AW: Zeit in TextBox von: Hajo_Zi
Geschrieben am: 04.11.2012 20:09:21

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
GrußformelHomepage


  

Betrifft: AW: Zeit in TextBox von: Frank H.
Geschrieben am: 04.11.2012 20:23:42

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.


  

Betrifft: AW: Zeit in TextBox von: Hajo_Zi
Geschrieben am: 04.11.2012 20:29:30

Hallo Frank,

Dir ist schon klar das eine Textbox Text enhält?
Range("A1")=Cdate("00:" & Textbox11)
würde ich mal vermuten.

Gruß Hajo


  

Betrifft: AW: Zeit in TextBox von: Frank H.
Geschrieben am: 04.11.2012 20:37:33

Hallo Hajo!

So funzt es! Super! Vielen Dank!

Gruß Frank H.


 

Beiträge aus den Excel-Beispielen zum Thema "Zeit in TextBox"