Textbox als Dezimalzahl mit 2 Nachkommastellen umwandeln

[Sofia_Bauer]

Hi ihr Lieben,

Wie kann ich meine Textbox für Dezimalzahlen mit 2 Nachkommastellen umwandeln.
Habe das Problem, dass wenn ich z.B. 2,4 eingebe wird in meine Tabelle 2 eingegeben.
Wie bekomme ich die Rundungen aus dem Format der Textbox raus?

Grüße

Sofia

PS. Wenn ihr die Datei braucht, dann Lade ich sie morgen hoch :)

[oee]

z.B. so:
Range("A1")= cDbl(Textbox1)

[RPP63]

Moin!
Und wiederum (siehe auch den letzten Thread):
Wo bleibt die Fehlerbehandlung, Sofia?
Mal ganz allgemein: Userforms mögen für einen experimentierfreudigen Newbie "interessant" aussehen, sind aber datentechnische Krüppel!
Sie können nichts auch nur annähernd so gut wie Zellen.

Zur Frage:
If IsNumeric(Textbox1.Text) Then Tabelle42.Range("XY18").Value = CDbl(Textbox1.Text)
XY18 auf Blatt 42 hat dann das Zahlenformat 0,00

Gruß Ralf

[derHoepp]

Moin,

das Problem ist, dass du den Text mit CInt in eine Ganzzahl wandelst (Versuche immer zunächst deinen Code zu verstehen, wenn du es für wichtiger hältst, die Milliardenfach bewährte Eingabe über Zellen durch etwas selbsgebasteltes zu ersetzen). 
Im übrigen scheint mir das in deinem Vorgängerthread gezeigte Vorgehen Recht ungünstig. Du hast nicht genau erwähnt, was du erreichen willst, aber wenn du Kategorien mehrere Einzelwerte zuordnen willst, solltest du das nicht in einer Kreuztabelle tun, sondern in einer Datensatzliste. Dann kannste dir die Userform auch sparen, wenn du einfach immer nur das paar Kategorie und Wert zeilenweise erfasst.

Viele Grüße
derHöpp