Textbox1 - Werte unterlegen
05.08.2003 15:47:23
HeineR
wieder mal... ein Problem.
In die Textbox1 der UserForm1 sollen Zeitwerte (im Format 1300 für 13:00 Uhr) eingegeben werden und nach dem Verlassen des Textfeldes automatisch in das Format 13:00 formatiert werden (das klappt).
Nach dem Aufruf der UserForm soll in der Textbox1 der Zeitwert 13:00 unterlegt dargestellt werden (das klappt natürlich nicht, der Cursor steht hinter dem Wert :-().
Private Sub UserForm_Initialize()
Sheets("Tabelle1").Select
With ANGABEN_ANFANGSWERTE.TextBox1
TextBox1.Text = Range("A1").Text
.SelStart = 0
.SelLength = Len(.Value)
End With
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If Not Chr(KeyAscii) Like "[0-9]" Then Call ZahlErlaubt: KeyAscii = 0
End Sub
Private Sub TextBox1_AfterUpdate()
TextBox1= Format(TextBox1, "##0:00")
End Sub
Wo liegt der Fehler?
Wer kann helfen und den Code berichtigen?
Vielen Dank vorab!
Gruß, HeineR