Formatanzeige in TextBox
16.08.2005 19:51:51
DLuck
ich habe eine UserForm mit Text- und ComboBoxen als Eingabemaske für eine Datenbank angefertigt. Es funktioniert alles bis auf eine Kleinigkeit: In einer TextBox wird ein Betrag eingetragen der nach dem speichern auch als Zahl in der entsprechenden Zelle erscheinen soll. Diese Zelle ist als "Währung" formatiert.
Außerdem soll nach dem Eintrag in die TextBox dieser Betrag auch als Währung mit Tausender Punkt angezeigt werden. Mein Versuch (ohne Tausender Punkt) sieht so aus:
Private Sub TextBox3_AfterUpdate()
TextBox3 = Format(TextBox3, "0.00 ")
End Sub
Der Betrag wird zwar so übertragen, ist aber keine auswertbare Zahl mehr.
Ich hoffe das mir Jemand helfen kann.
Gruß Dluck
Anzeige