Werte von Formular in Zellen eintragen

16/02/2009 - 17:08 von Beck, Alwin | Report spam
Excel 2003

Hallo,

ich habe auf einem Formular mehrere Textfelder erstellt in welche ich
Zahlenwerte eintrage. Per VBA-Code werden dann diese Werte in Zellen
eingetragen. Das funktioniert soweit. Jedoch klappt es nicht mit der
Formatierung. Die Werte werden immer als Text übergeben und selbst
wenn ich im Code dann die Formatierung als Zahlenwert Wàhrung mitgebe
erfolgt keine korrekte Darstellung.


Range("F3").Select
Selection.NumberFormat = "$#,##0.00_);[Red]($#,##0.00)"
Sheets("Provision-Test").Range("F3").Value = UserForm1.TB_F7

Wenn ich manuell in der Zelle dann auf den Werte gehe, kommt
der Zusatz "Wert in Zahl umwandeln" - dann funktioniert es.

Also habe ich versucht, ein Makro aufzuzeichenen um den Code zu
erhalten, wie der Textwert in eine Zahl umgewandelt wird. Dieses
wird jedoch nicht aufgezeichnet.

Was kann ich tun ?

Danke

Gruß
Albe
 

Lesen sie die antworten

#1 Andreas Killer
16/02/2009 - 17:26 | Warnen spam
Beck, Alwin schrieb:

Also habe ich versucht, ein Makro aufzuzeichenen um den Code zu
erhalten, wie der Textwert in eine Zahl umgewandelt wird. Dieses
wird jedoch nicht aufgezeichnet.


Wandel den String der Textbox direkt in eine Zahl um, z.B.:

Sheets("Provision-Test").Range("F3") = CDbl(UserForm1.TB_F7)

Allerdings musst Du sicher sein das in TB_F7 auch eine Zahl steht,
sonst gibt's 'nen Fehler. Ich würde daher in im Change-Ereignis der
Textbox auf IsNumeric(.Value) prüfen.

Andreas.

Ähnliche fragen