Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<
Microsoft Office 2003-2019 => Excel => Thema gestartet von: Rolf Grob am Januar 01, 2016, 17:46:57 Nachmittag
-
Hallo Zusammen,
Zu erst einmal ein gutes neues Jahr :)
Ich habe im Internet einen VBA Code zum Addieren von Zahlen in einer Zelle über eine TextBox gefunden.
Mein Problem war, dass ich über eine TextBox1 mehrere Zahlen in einer Zelle A1 addieren möchte.
Folgender Code habe ich gefunden:
Private Sub TextBox01_Change()
Worksheets("04Dez15").Range("A1").Value = CDbl(TextBox01.Value) + Range("A1").Value
End Sub
Der Code Funktioniert, aber nur teilweise.
Wenn ich Zahlen wie 5, 14, 26 usw. eingebe habe ich kein Problem.
ABER bei Zahlen wie z.B. 10, 20 30 usw. schreibt mir Excel 11, 22, 33 usw. in die Zelle.
Was mache ich falsch :(, Kann mir jemand helfen ???
Besten Dank im voraus,
Rolf
-
Moin Rolf,
auch dir ein frohes neues Jahr. Versuche einmal, einen anderen "Aslöser" zu verwenden:
Private Sub TextBox01_LostFocus()
-
Hallo Günther,
Herzlichen Dank für deine Antwort,
aber wenn ich _LostFocus() eingebe bekomme ich leider gar kein Ergebnis mehr.
Die Eingabe wird nicht eingetragen oder gespeichert.
Trotzdem vielen Dank für deine Antwort.
Gruss Rolf
-
Moin,
nun ja, solange die TextBox den Focus hat, wird auch nichts ausgeführt. Klicke nach kompletter Eingabe einfach einmal irgendwo in die Tabelle, damit die Textbox den Focus verliert.
Das Change-Ereignis wird ja nach jeder Eingabe eines Zeichens (Ziffer oder Character) ausgelöst. Also schreibst du eine 1, dann wird in A1 eine 1 eingetragen danach die Null (->10), dann wird der Inhalt der Zelle A1 zu dem eingegebenen Wert (10) addiert, was 11 ergibt. Logisch? Und: Bei mir kommt bei Eingabe 14 auch 15 raus ...
Du kannst ja auch einmal über einen Button als Auslöser nachdenken ...