Textbox-Formatierung
13.04.2013 14:49:48
Dirk
ich habe folgendes Problem : aus einem Tabellenblatt werden Daten in ein Userform
eingelesen, sodaß sie geändert und wieder zurückgeschrieben werden können. In 6 Text-
boxen stehen Euro-Beträge, die beim Einlesen mit Tausendertrennpunkt, 2 Dezimalstellen und Währungszeichen in der Textbox dargestellt werden. Ändere ich jedoch einer dieser 6 TextBoxen, so erscheint sofort nach dem Eintippen des ersten Zeichens dieses, gefolgt von einem Komma, den beiden Dezimalstellen und dem Währungszeichen. Das 2. eingetippte Zeichen erscheint dann erst hinter dieser Folge.
Die 6 Textboxen habe ich wie folgt formatiert :
Private Sub TBP_Change()
If IsNumeric(TBP.Text) Then TBP.Text = Format(TBP.Text, "#,###.00")
End Sub
Über eine rasche Antwort würde ich mich sehr freuen.
Liebe Grüße
Dirk
Anzeige