Registriert seit: 05.07.2024
Version(en): 365 Grad
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 :)
Registriert seit: 04.04.2017
Version(en): Excel365
z.B. so:
Range("A1")= cDbl(Textbox1)
Registriert seit: 12.10.2014
Version(en): 365 Insider (32 Bit)
08.07.2024, 04:02
(Dieser Beitrag wurde zuletzt bearbeitet: 08.07.2024, 04:02 von 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
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag.
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Registriert seit: 26.09.2022
Version(en): 2019
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