Werte aus Textfeldern summieren

Question

Hallo,
als VBA-Neuling komme ich bei folgendem Problem nicht mehr weiter und hoffe dass mir jemand weiterhelfen kann.

Ich habe momentan ein Formular mit 3 Textfeldern. Neben jedem Textfeld befinden sich zwei Befehlsschaltflaechen. Von diesen Schaltflaechen laedt eine eine bestimmte Zahl in das Textfeld und mit der anderen Schalftlaeche, kann diese Zahl wieder "geloescht" werden. Soweit so gut.
Zu diesem Formular moechte ich jetzt noch ein viertes Textfeld einfuegen. Das jeweils, sofern vorhanden, die Werte aus den Textfeldern addiert.
Beispiel: Textfeld1 = 100, Textfeld2= 200 --> Textfeld4 = 300...

Eigentlich duerfte dieser Befehl doch nicht so schwierig sein - so zumindest meine Meinung als Anfaenger, aber momentan komme ich nicht darauf und meine Mittel sind doch noch sehr begrenzt.

Ich bedanke mich schon vorab fuer eure Hilfe
und bin schon auf die Loesung gespannt.

Stefan
P.S.: Ich verwende momentan Excel2003

Answer 1

Hi Stefan,

da Textfelder Text enthalten, musst du die "Zahl" vorher in eine Zahl umwandeln:

Textfeld4 = CDbl(Textfeld1) + CDbl(Textfeld2) + CDbl(Textfeld3)

Bis später,
Karin

Answer 2

Hallo Karin,
vielen, vielen Dank fuer deine Hilfe. Wieder etwas gelernt.
Aber leider ist Textfeld4 immer noch "tot".
In Anlehnung an deinen Vorschlag hab ich folgende Formel versucht (usrWerte ist der Name des Formulars):
usrWerte.TextBox4.Value = CDbl(TextBox1) + CDbl(TextBox2) + CDbl(TextBox3) - aber leider wird wieder nichts angezeigt.

Ich hab auch weiter geforscht und unter anderem mit der Summenfunktion gearbeitet, was nach meinem Wissensstand so aussehen koennte:
usrWerte.TextBox4.Value = Application.WorksheetFunction.Sum(CDbl(TextBox1), CDbl(TextBox2), CDbl(TextBox3) - aber auch hier wieder kein Ergebnis in Textfeld4.

Nun, momentan weiss ich wirklich nicht weiter.
Hast du oder vielleicht auch jemand anderer einen Voschlag?

Ich bin fuer jede Hilfe dankbar.
Stefan

Answer 3

Hallo,
das Problem ist geloest:

With Form1
.TextBox4.Value = Val(.TextBox1.Value) + Val(.TextBox2.Value) + Val(.TextBox3.Value)
End With

Stefan