Problem mit Textbox-Formatierung :-(
16.07.2003 13:57:53
Heiner
ich habe zwei Probleme mit einer TextBox.
Problem 1:
Wenn ein Betrag in die Textbox1 eingegeben wird (das soll ohne Eingabe eines Komma geschehen, z.B.
665 statt 6,65), soll der Betrag nach dem Verlassen des Feldes automatisch in das Format 6,65 for-
matiert werden.
Irgendwie klappt das mit meinem Code nicht.
Nach dem Verlassen des Feldes hat der Betrag das Format 102,00 :-(
Private Sub UserForm_Initialize()
Sheets("Tabelle1").Select
With UserForm1.Textbox1
Textbox1.Text = Range("V49").Text
.SelStart = 0
.SelLength = Len(.Value)
End With
End Sub
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 Betrag1_AfterUpdate()
Textbox1 = Format(Textbox1, "#,##0.00")
End Sub
Ändere ich den Code folgendermaßen,
Private Sub Textbox1_AfterUpdate()
Textbox1 = Format(Textbox1, "#0\,00")
End Sub
dann wird zwar das richtige Format gesetzt, aber beim Aufruf der UserForm wird in TextBox1 leider
0,07 statt 6,65 angezeigt und ich habe das Problem 2. :-(
Wer hat eine Idee und kann den Code so umstricken, das beide Probleme gelöst sind.
Ein großes Danke vorab!!
Gruß, Heiner
Anzeige