Microsoft Excel

Herbers Excel/VBA-Archiv

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

Textfeld-Eingabe in Zeitformat konvertieren?

    Betrifft: Textfeld-Eingabe in Zeitformat konvertieren? von: HeinerB
    Geschrieben am: 31.08.2003 09:51:12

    Hallo VBA-Freaks,

    in einer UserForm soll das Textfeld "Std" automatisch in das Format ##0:00 konvertiert werden, wenn das Feld per TAB-Taste verlassen wird, oder (und jetzt kommt das Problem) wenn das Feld nach der Eingabe nicht mit der TAB-Taste verlassen wird, sondern direkt der CommandButton1 gedrückt wird!

    In dem Fall erscheint in dem Textfeld "Std" nach erneutem Aufruf ein ganz anderer Wert als eingegeben.

    Beispiel:
    Eingabe in Textfeld "Std" 12330, Feld per TAB-Taste verlassen und Klick auf CommandButton1.
    Nach erneutem Aufruf der UserForm erscheint richtigerweise 123:30 in dem Textfeld.

    Eingabe in Textfeld "Std" 12330, Feld nicht per TAB-Taste verlassen, sondern sofort Klick auf CommandButton1.
    Nach erneutem Aufruf der UserForm erscheint 592920:00 in dem Textfeld!

    Wo liegt der Fehler in folgendem Code?

    Private Sub Std_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If Not Chr(KeyAscii) Like "[0-9]" Then Call ZahlErlaubt: KeyAscii = 0
    End Sub
    
    Private Sub Std_AfterUpdate()
    Std = Format(Std, "##0:00")
    End Sub
    
    Private Sub CommandButton1_Click()
       With ANGABEN_ANFANGSWERTE
          If .Std.Value = "" Then Call FehltWas: .Std.SetFocus: Exit Sub
          Range("Tabelle!A1") = UserForm1.[Std].Text
       End With
    End Sub
    

    Wer kann helfen und den Code evtl. modifizieren?

    Danke und Gruss, HeinerB
      


    Betrifft: AW: Textfeld-Eingabe in Zeitformat konvertieren? von: Josef Ehrensberger
    Geschrieben am: 31.08.2003 10:44:35

    Hallo Heiner,

    Setze das Formatieren des Textfeldes doch einfach
    in das Sub des Commandbuttons vor dem restlichen Code.

    Gruß Sepp


      


    Betrifft: Noch offen: Textfeld in Zeitformat konvertieren? von: HeinerB
    Geschrieben am: 31.08.2003 10:51:38

    Hallo Sepp,

    danke für Deinen Tip.

    Ich habe Deinen Tip getestet, leider funktioniert das nicht!

    Mag daran liegen, das der Zeitwert über 24 Std. hinausgeht!?

    Gruss Heiner


      


    Betrifft: Hallo Sepp - Eingabe in Zeitformat... Klappt! von: HeinerB
    Geschrieben am: 31.08.2003 10:59:54

    Hallo Sepp,

    Sorry, ich hatte einen Tip-Fehler eingebaut...

    Das funktioniert perfekt!!! :-)

    Gruss und einen schönen Sonntag! HeinerB


      


    Betrifft: Danke für die Rückmeldung! o.T. von: Josef Ehrensberger
    Geschrieben am: 31.08.2003 11:14:43

    oT


     

    Beiträge aus den Excel-Beispielen zum Thema " Textfeld-Eingabe in Zeitformat konvertieren?"