Anzeige
Archiv - Navigation
496to500
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
496to500
496to500
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
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!

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

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige