Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
216to220
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
216to220
216to220
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

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

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige