Aus Textbox wird keine Dezimalzahl übergeben

Hallo Excelprofis,
dank dieses Forums bin ich mit meinem Projekt schon ein Stückchen weiter.
Auf einem UserForm habe ich Combo- und Textboxen. In die Textboxen 1 bis 10 werden Zahlenwerte eingetragen, die dann per Commandbutton in die aktive Tabelle eingetragen werden.
Nun ist das Problem, wenn ich in den Textboxen 2 bis 10 einen Dezimalwert ( z.B. 0,75 ) eingebe, wird dieser Wert nicht als Zahlenwert in die Tabelle geschrieben.
Folgender Hintergrund:
In Textbox1 wird ein Buchungsbetrag eingetragen. In die Textboxen 2 bis 10 die Einzelbeträge. Zur Kontrolle ist in der Tabelle eine bedingte Formatierung angelegt.
Entspricht der Wert in Spalte E (Ttextbox1) der Summe der Werte G:O (Textboxen 2-10) färbt sich die Zelle. Bei Nichtübereinstimmung
ist die Zelle rot.
Gibt man also in Textfeld1 den Wert 1,75 und in Textfeld2 den Wert 1,75 ein, müsste sich der Zellhintergrund grau färben.
Leider funktioniert das nicht. Erst wenn man den Wert 1,75 in G händisch einträgt funktioniert es.
Der Wert in den Textboxen 2-10 wird bei Dezimalzahlen also nicht als Zahlenwert eingetragen.
https://www.herber.de/bbs/user/120330.xlsm
Kann mir bitte Jemand weiterhelfen?
Danke fürs lesen und die Hilfe.
mfg, Andreas

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) Select Case KeyAscii Case 48 To 57, 8, 44 Case Else KeyAscii = 0 MsgBox "Es sind nur Ziffern und Komma zulässig!", vbInformation, "Hinweis" End Select End Sub

Hi
Excel ist ein amerikanisches System, das ans Deutsche angepasst wurde.
Das gilt aber nicht für VBA, auch im deutschen Excel ist VBA weiterhin amerikanisch.
as gilt auch für die Übergabe von Werten von VBA nach Excel.
Dh wenn du einen Text in eine Zelle schreibst, erkennt Excel diesen Text als Zahl, wenn er nach deutschen Regeln wie eine Zahl aussieht (Komma als Dezimalzeichen)
Schreibt jedoch VBA einen Text in eine Zelle so muss dieser nach amerikanischen Regeln wie eine Zahl aussehen um als Zahl erkannt zu werden, dh mit Punkt als Dezimalzeichen.
dh, wenn du Kommazahlen in die Textbox eingibst und diese dann in die Zelle schreiben lässt, müsstest du sie erst vom deutschen ins amerikanische Format bringen und den Punkt als Dezimalzeichen einsetzen.
du kannst den Wert entweder direkt als "1.75" in die Textbox schreiben, oder VBA diese Arbeit erledigen lassen:

Cells(...).Value = Replace(Textbox1.Text, ",", ".")

die andere Möglichkeit wäre, du benutzt die Umwandlungsfunktion CDBL() um die Wandlung von Text in Zahl zu machen und schreibst dann die Zahl in die Zelle.
Die Umwandlungsfunktion orientiert sich wieder an den deutschen Schreibweisen.
Hier brauchst du, um Abbrüche bei Fehlern zu vermeiden, die Überprüfung ob sich der eingegebene Wert auch in eine Zahl wandeln lässt:

If IsNumeric(Textbox1.Text) Then Cells(...).Value = CDbl(Textbox1.Text)

das IsNumeric prüft auch nach deutschen Regeln.
Gruß Daniel

Beliebteste Forumthreads (12 Monate)

Aus Textbox wird keine Dezimalzahl übergeben

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

318 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Aus Textbox wird keine Dezimalzahl übergeben

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

318 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread