Zahleneingabe in Textbox
03.03.2004 11:08:30
Lars
habe folgendes Problem:
Bei Eingabe von Zahlen in eine Textbox (die aber wie nachfolgend formatiert ist)
With TextBox16
.Value = Format(TextBox16.Value, "##0.00")
End With
muß ich immer mit dem Cursor vor die Kommastelle gehen, um eine Zahlenänderung vorzunehmen.Es funktioniert so zwar, aber wenn ich einfach eine Zahl in die Textbox eingeben will und dies nicht vor der Kommastelle mache, bekomme ich eine Fehlermeldung.
Wie kann ich innerhalb des Makros festlegen, das erst nach kompletter Zahleneingabe in die Textbox (oder während der Zahleneingabe) das Format entsprechend der Eingabe angepaßt wird ???
Also z.Bsp. wenn ich 100 eingebe und dann die Textbox wechsle, (dadurch wird ja das Change Ereignis ausgelöst), die Textbox den Wert 100 zu 100,00 formatiert ??? Oder wenn ich in die Zelle klicke (auch wenn die Formatierung schon erfolgt ist, also z.Bsp. schon 100 drinstehtl, dann will ich halt eine neue Zahl eingeben und nach Enter oder wechsel in ein andere Zahlenbox soll die erste Textbox aktualisiert bzw. mit dem festgelegten Format versehen werden)
Wer kann mir dazu Tips geben !
Danke,
Lars.