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

Variablen als Single aus Textboxen

Forumthread: Variablen als Single aus Textboxen

Variablen als Single aus Textboxen
12.02.2003 09:21:57
Leo
Hallo,
folgendes Problem:
12 Textboxen: TextBox1 bis TextBox12
in TextBox13 soll die Summe der ersten 12 stehen.
Wenn ich textbox13.value = textbox1.value + textbox2.value.... eingebe, dann werden die Werte nur angereiht statt summiert.
Ich kann variablen als Single deklarieren:
Dim g(1 To12) As Single
und ihnen die Werte der Textboxen zuweisen und dann summieren,
aber kann ich das in einer Schleife machen?
Statt:
g(1) = TextBox1.Value
g(2) = TextBox2.Value
....

hätte ich lieber
For a = 1 To 12
g(a) = "TextBox" & a & ".Value"
Next a

Hier scheitere ich, Typen unverträglich

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Variablen als Single aus Textboxen
12.02.2003 09:29:35
M@rkus

Hallo Leo!
So könnte es Funktionieren:



Re: Variablen als Single aus Textboxen
12.02.2003 09:30:19
Michael Scheffler

Hallo,

Dim sngSum as Single
Dim iTxt As Integer

sngSum = 0
For iTxt = 1 To 12
sngSum = sngSum + Val(Controls("TextBox" & iTxt).Value)
Next iTxt

TextBox13.Value = Str(sngSum)

Fehlerkontrolle ist noch nicht drin!

Gruß

Micha

Anzeige
Könnte - tut es aber nicht...
12.02.2003 09:34:25
Michael Scheffler

Hallo Markus,

bitte funktionierenden Code.

Gruß

Micha

Re: Variablen als Single aus Textboxen
12.02.2003 10:14:05
Leo

Hallo Michael,
Danke für die prompte Antwort.
Die Lösung ist auch fast perfekt, nur der Ausdruck
Val(Controls("TextBox" & iTxt).Value) gibt mir eine aufgerundetet Zahl, und bei der Summe ergibt das eine zu hohe Fehlerquote.
Die Werte in den TextBoxen sind alles Zahlen mit 2 Nachkommastellen.
Gibt es da eine Möglichkeit mit den nicht gerundeten Zahlen zu arbeiten?

Gruss, Leo

Anzeige
;

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige