Formatierung von Zahlen in Textfeldern
15.01.2004 10:16:48
Lars
ich habe folgendes Problem:
Ich habe eine UserForm mit 2 Textfelder, in denen Zahlen dargestellt werden sollen. Diese Zahlen sollen mit Tausenderpunkt angezeigt werden. Beide Felder haben eine ControlSource (sagen wir mal A1 und A2), welche das Formatieren der Werte anscheinend verhindert.
Der Quelltext:
Private Sub TextBox1_AfterUpdate()
TextBox1 = Format(TextBox1, "#,##0.00")
End Sub
Private Sub TextBox2_AfterUpdate()
TextBox2 = Format(TextBox2, "#,##0.00")
End Sub
Private Sub UserForm_Activate()
Formatieren
End Sub
Private Sub Formatieren()
TextBox1 = Format(TextBox1, "#,##0.00")
TextBox2 = Format(TextBox2, "#,##0.00")
End Sub
Wenn ich die ControlSource der Felder entferne funktioniert es wunderbar.
Wenn ich nur ein TextFeld habe, dann funktioniert es wunderbar. (auch mit ControlSource)
Die Maske ist natürlich nur eine Demo und soll nur das Problem schildern. Ich will diesen Formatierungsprozeß in einer Funktion zusammenfassen, die beim Aktivieren der UserForm gerufen wird. Daher hätte ich gern das Grundproblem geklärt, warum die Werte nicht im angegebenen Format dargestellt werden, wenn man zwei Textfelder in einer Funktion formatiert.
Danke
Lars
Anzeige