Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Textboxen addieren in separater Textbox

Textboxen addieren in separater Textbox
13.10.2004 11:07:16
Timmy@Southpark
hallo zusammen,
ich habe 4 textboxen. in 3 davon möchte ich mauell zahlen eingeben. in der 4ten textbox sollen die eingaben der ersten 3 textboxen ausgegeben werden. ich krieg es leider nicht hin.
habe es wie folgt versucht:

Private Sub Textbox1_Change()
TextBox4.Text = TextBoxP1.Value + TextBoxP2.Value + TextBoxP3.Value
End Sub


Private Sub Textbox2_Change()
TextBox4.Text = TextBoxP1.Value + TextBoxP2.Value + TextBoxP3.Value
End Sub


Private Sub Textbox3_Change()
TextBox4.Text = TextBoxP1.Value + TextBoxP2.Value + TextBoxP3.Value
End Sub

da passsiert zwar schon was, aber die eingaben die ich mache werden in der textbox4 nur hintereinander gereiht.
die eingabe:
tb1 = 3
tb2 = 1
tb3 = 4
hat die ausgabe:
tb4 = 314
aber da sollte dann schon 8 stehen.
kann mir jemand einen tip geben?
gruß
danke
timmy!
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Textboxen addieren in separater Textbox
Bert
Textboxen enthalten nun mal Text! Zum Umwandeln in Zahlen musst du die Typumwandlungsfunktionen benutzen.
TextBox4 = CDbl(TextBoxP1) + CDbl(TextBoxP2) + CDbl(TextBoxP3)
Bert
AW: Textboxen addieren in separater Textbox
13.10.2004 11:20:26
Timmy@Southpark
hallo bert,
danke für den schnellen tip. das sieht gut aus.
aber ich bekomme dann eine fehlermeldung:
"typen unverträglich"
weiss du noch einen rat?
hab folgends versucht:
TextBoxP40 = CDbl(TextBoxP1) + CDbl(TextBoxP2) + CDbl(TextBoxP3)
TextBoxP40.Text = CDbl(TextBoxP1) + CDbl(TextBoxP2) + CDbl(TextBoxP3)
TextBoxP40.Value = CDbl(TextBoxP1) + CDbl(TextBoxP2) + CDbl(TextBoxP3)
gruß
timmy
Anzeige
AW: Textboxen addieren in separater Textbox
Bert
Lad mal ein Beispiel hoch.
Bert
AW: Textboxen addieren in separater Textbox
13.10.2004 11:56:09
Timmy@Southpark
https://www.herber.de/bbs/user/12035.xls
hab mal schnell was zusammengebastelt.
die originaldatei kann ich aus datenschutzgründen nit hochladen.
danke timmy
AW: Textboxen addieren in separater Textbox
P@ulchen
Hi Timmy,
Tu so:


Private Sub TextBox1_Change()
Summe
End Sub
Private Sub TextBox2_Change()
Summe
End Sub
Private Sub TextBox3_Change()
Summe
End Sub
Sub Summe()
If TextBox1 <> "" And TextBox2 <> "" And TextBox3 <> "" Then
TextBox4 = CDbl(TextBox1) + CDbl(TextBox2) + CDbl(TextBox3)
End If
End Sub


Gruß aus Leipzig
P@ulchen
Das Forum lebt auch von den Rückmeldungen !
Anzeige
AW: Textboxen addieren in separater Textbox
13.10.2004 14:12:45
Timmy@Southpark
hallo paulchen,
danke! klappt super!
konnte vorher nit antworten, das firmennetzwerk war tot.
gruß
timmy
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige