Supportnet / Forum / Tabellenkalkulation
Textbox-Werte auslesen und Ergebnis in TB ausgeben
Frage
Hallo Community,
Hab eine Userform, aus der mittels Button auf eine weitere Userform zugegriffen wird. Darin werden in mehreren Textboxen Zahlen eingegeben, diese Zahlen möchte ich gern in einer "Ergebnis"-Textbox zusammenfassen.
Das Problem fängt schon damit an, dass ich den "Zahlen"Text nicht in Zahlen umwandeln kann. (angenommen TB1 = 10 und TB2 = 20 ergibt in der ErgebnisTB: 1020).
Dazu soll das Ergebnis jedesmal aktualisiert werden, wenn in einer der Textboxen ein neuer Wert eingegeben wird. (Was zwar umständlich, aber über Eingabe von "After_Update" bei allen Textboxen funktionieren müsste)
Jetzt bin ich mir nicht so sicher, wo die Umwandlung des Textes in die Zahlen (?TextBox1 = CDbl(TextBox1.Value), bzw. TBEingabeER = CDbl(TBEingabeER.Value) )eigentlich stattfinden muss:
In dem Button, der die erste UF startet(Fehler: Objekt erforderlich) oder der 2. Userform (Fehler: Objekt erforderlich), innerhalb der einzelnen "Eingabe" Textboxen (Typen unverträglich), in der Ergebnistextbox (Typen unverträglich).
Irgendwie komm ich da im Moment nicht mehr weiter, vielleicht kann mir ja jemand auf die Sprünge helfen ?!
Viele Grüße
martl
Antwort 1 von martl
Hallo Community,
hab zwischenzeitlich mal noch folgendes ausprobiert:
In den Textboxen hab ich folgenden Code hinterlegt:
Private Sub TextBox1_AfterUpdate()
TextBox1 = Format(TextBox1, "#,##0.00")
TBEingabeER = CCur(TextBox1.Value) + CCur(TextBox3.Value) + CCur(TextBox5.Value) + CCur(TextBox7.Value) _
+ CCur(TextBox9.Value) + CCur(TextBox11.Value) + CCur(TextBox13.Value) + CCur(TextBox15.Value) _
+ CCur(TextBox17.Value) + CCur(TextBox19.Value) + CCur(TextBox21.Value) + CCur(TextBox23.Value)
TBEingabeER = Format(TBEingabeER, "#,##0.00")
End Sub
Hab mehrere "Umwandlungstypen" ausprobiert: Val, Cdbl und zuletzt Ccur. Am besten funktionierts noch bei Val - allerdings bereitet Excel programmbedingt das Tausendertrennzeichen Probleme. Bei Cdbl und Ccur hab ich wie zuerst beschrieben, das Problem, dass die "Typen unverträglich" sind.
Vielleicht kann ja jemand etwas damit anfangen.
Viele Grüße
martl
hab zwischenzeitlich mal noch folgendes ausprobiert:
In den Textboxen hab ich folgenden Code hinterlegt:
Private Sub TextBox1_AfterUpdate()
TextBox1 = Format(TextBox1, "#,##0.00")
TBEingabeER = CCur(TextBox1.Value) + CCur(TextBox3.Value) + CCur(TextBox5.Value) + CCur(TextBox7.Value) _
+ CCur(TextBox9.Value) + CCur(TextBox11.Value) + CCur(TextBox13.Value) + CCur(TextBox15.Value) _
+ CCur(TextBox17.Value) + CCur(TextBox19.Value) + CCur(TextBox21.Value) + CCur(TextBox23.Value)
TBEingabeER = Format(TBEingabeER, "#,##0.00")
End Sub
Hab mehrere "Umwandlungstypen" ausprobiert: Val, Cdbl und zuletzt Ccur. Am besten funktionierts noch bei Val - allerdings bereitet Excel programmbedingt das Tausendertrennzeichen Probleme. Bei Cdbl und Ccur hab ich wie zuerst beschrieben, das Problem, dass die "Typen unverträglich" sind.
Vielleicht kann ja jemand etwas damit anfangen.
Viele Grüße
martl