Umformatieren
15.08.2007 11:13:00
Christian
habe ein kleines Problem bei meiner UserForm.
Ich möchte, wenn der Anwender die TextBox8 verläßt, dass die Value automatisch sofort umgewandelt wird und zwar wie folgt.
Aus 51129,32 wird 51.129,32
Aus 10000 wird 10.000,00
Aus 100 wird 100,00
Versucht habe ich das mit dem folgenden:
Dim Nennwert, Nennwert1 As Currency
Private Sub TextBox8_Change()
On Error Resume Next
Nennwert = TextBox8.Value
Nennwert1 = Format(Nennwert, "2")
TextBox8.Value = Nennwert1
End Sub
....
.Cells(lZeile, 6).Value = StückeNummer1 'Spalte F
aber das klappt nicht kann mir jemand bitte helfen ?
Anzeige