Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1096to1100
1096to1100
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

rechnen mit Textbox in Userform

Forumthread: rechnen mit Textbox in Userform

rechnen mit Textbox in Userform
reinhardt
Hallo,
ich lasse mir Daten aus einem Tabellenblatt mit
TextBox8.Text = Cells(r, 8).Text
TextBox9.Text = Cells(r, 9).Text
in einer Userform anzeigen.
Frage: Kann eine Textbox10 die Summe von TB8 + TB 9 nehmen?
Gruß Reinhardt.
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: rechnen mit Textbox in Userform
19.08.2009 08:49:00
MichaV
Hallo,
Private Sub CommandButton1_Click()
On Error GoTo Fehler
TextBox3.Text = CSng(TextBox1.Text) + CSng(TextBox2.Text)
Exit Sub
Fehler:
TextBox3.Text = "Addition nicht möglich"
End Sub
Gruß- Micha
AW: rechnen mit Textbox in Userform
19.08.2009 09:07:03
reinhardt
Super! Danke,
aber einer geht noch?
In den Textfeldern stehen Zahlen: 8,0 und 72,0
Textbox3 soll, wenn es geht, zwei Kommastellen anzeigen.
Gruß Reinhardt.
Anzeige
AW: rechnen mit Textbox in Userform
19.08.2009 09:13:02
MichaV
Round-Funktion
Beschreibung
Gibt eine Zahl zurück, die auf eine festgelegte Anzahl an Dezimalpunkten gerundet wurde.
Syntax
Round(Ausdruck [,AnzahlAnDezimalpunktn])
Die Syntax der Round-Funktion besteht aus folgenden Teilen:
Teil Beschreibung
Ausdruck Erforderlich. Numerischer Ausdruck, der gerundet wird.
AnzahlAnDezimalpunkten Optional. Zahl, die angibt, wie viele Stellen rechts vom Dezimalpunkt beim Runden berücksichtigt werden. Wird dieser Wert ausgelassen, gibt die Round-Funktion Ganzzahlen zurück.
Anzeige
Dein Bsp ist mathematischer Unsinn,...
19.08.2009 09:40:03
Luc:-?
...Reinhardt,
da du die Summe 2er Zahlen mit je 1er Dezimalen mit 2 Dezimalen anzeigen lassen willst (noch dazu obwohl die Dezimalen =0 sind)! Das wäre nur ab Multiplikation aufwärts sinnvoll und da auch nicht unbegrenzt. Sonst wird eine Genauigkeit vorgetäuscht, die die Primärdaten nicht hergeben.
Falls doch Dezimalen ≠0 vorkommen sollten ist bei Anwendung der vbFkt Round lt Michas Vorschlag zu beachten, dass diese nicht kaufmännisch (asymmetrisch), sondern wissensch-techn (symmetrisch) rundet. Falls das unerwünscht ist, musst du WorksheetFunction.Round einsetzen, die rundet asymmetrisch.
Moin Luc :-?
Anzeige
AW: Dein Bsp ist mathematischer Unsinn,...
19.08.2009 09:46:31
MichaV
Hey Luc,
da hab ich ja mal richtig was von Dir gelernt ;o) Danke für diesen Hinweis.
Sub test()
Const a = 2.25
MsgBox Round(a, 1)
MsgBox WorksheetFunction.Round(a, 1)
End Sub
Gruss- Micha
PS: http://de.wikipedia.org/wiki/Runden#Unverzerrte_oder_mathematische_Rundung
Anzeige
Ja bitte,...
19.08.2009 10:24:08
Luc:-?
...Micha,
der Anstoß dazu kam ursprgl allerdings nicht von mir! Wir hatten hier vor Monaten (während deiner Herber-Abstinenz) eine Diskussion über das Thema, die mich dazu inspirierte eine udF RoundA zu schreiben, die die unverzerrte Rundung auch im TabBlatt ermöglicht. Und wie es so meine Art ist auch gleich noch statistisches und sog Rappenrunden, was dann auch noch genauer ist als die vglbare Möglichkeit mit VRUNDEN... ;-)
Gruß Luc :-?
PS: Bin emailmäßig zu Arcor gewechselt, alles Andere ist aber gleich geblieben.
Anzeige
AW: rechnen mit Textbox in Userform
19.08.2009 09:48:26
Kawensmann
Hallo,
so geht's:
TextBox3.Text = Format(CSng(TextBox1.Text) + CSng(TextBox2.Text), "##,##0.00")
Gruß
Kawensmann
AW: rechnen mit Textbox in Userform
19.08.2009 08:52:09
robert
hi,
probier mals
Textbox10=Cdbl(Textbox8)+Cdbl(Textbox9)
gruß
robert
;

Forumthreads zu verwandten Themen

Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:33:59
Thread-ID: 1000866
3 Beiträge
Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:34:08
Thread-ID: 1000867
5 Beiträge
formel vereinfachen
Bastian

guten morgen aus der schönen schweiz :)
ich habe mal wieder (aber ich lerne wirkich dazu, glaubt mir das bitte) ein problem.
ich habe eine formel gebastelt, die zwar funktioniert, die aber gleichzeitig ewig ewig lang ist.
diese würde ich gerne vereinfachen.
ich habe euch dazu ei...
15.08.2008 09:24:00
Thread-ID: 1002044
6 Beiträge
Anzeige
@ Tino - brauche Hilfe bei einer deiner Formeln
oblivion

Hallo, ich habe eine Frage an dich. Du hast mir die Formel erstellt in A16.
Ich habe die Datei mal hochgeladen und in Blatt "Beispiel" Spalte A etwas hereingeschrieben.
Danke für deine Hilfe.
Gruß Oblivion
https://www.herber.de/bbs/user/54685.zip
17.08.2008 21:06:00
Thread-ID: 1002466
4 Beiträge
ButtonClick in Format Symbolleiste feststellen
Andreas

Hallo Herber Fans,
Ich habe hier im Forum schon gesucht, aber bekomme für meine Problem nur Antworten, die auf eine UserForm bezogen sind. Wie kann ich feststellen, ob der Button (ID: 443) "Fenster fixieren" der "Format"- Symbolleiste gedrückt wurde?
Über commandbars.findcontrol konnt...
18.08.2008 18:24:00
Thread-ID: 1002705
3 Beiträge
Schreibschutz/bedingte Formatierung Makro
Tobi

Hallo,
Ich übertrage mit Hilfe eines Makros (IF-Funktion) Zahlen aus einem Tabellenblatt in ein anderes welches schreibgeschützt ist. Wenn die Bedingung in der Funktion nicht erfüllt wird dann überträgt es "blank" ("").
Die Zellen welche leer "blank" sind, färben sich dann mit Hilfe der...
20.08.2008 14:39:51
Thread-ID: 1003216
5 Beiträge
Excel Daten in HTML Formular übertragen
Johannes

Hallo,
ich bin über einen Thread in einem anderen Forum auf dieses Forum und zwei Threads gestoßen worden, bei denen sich besonders der User Tino als Super-Hilfe herauskristalisiert hat (und dafür ziemlich angeblafft wurde...), weshalb ich mir erhoffe hier bzgl. meines Problems Hilfe zu erh...
21.08.2008 13:48:00
Thread-ID: 1003473
7 Beiträge
Brüche mit kleiner Schrift formatieren
Siegfried

Hallo Excelianer,
der Betreff sagt sicher wenig aus. Ich möchte Zeiten, die auf Viertelstunden gerundet sind, als Brüche darstellen - soweit kein Problem. Jetzt hätte ich aber gern die Viertelstunden nicht in der Standardformatierung, also 1 1/4 z. B., sondern mit kleingeschriebenen Ziffern...
25.08.2008 11:32:00
Thread-ID: 1004409
7 Beiträge
ganze Zeile nach Bedingung formatieren
Tom

Hallo
wie kann ich denn ausgehend von der aktuellen Zeile diese mittels VBA formatieren.
Hintergrund:
Steht in Spalte N der Wert "Ja", dann ändere den Hintergund dieser Zeile von A bis R in grau ab (Interner Farbwert von Excel sollte 15 sein)
Wird diese Formatierung mittels VBA...
26.08.2008 14:48:36
Thread-ID: 1004813
3 Beiträge
Formel: Max in Verbindung mit Mehrfachabfrage
Peter

Hallo !
Folgende Frage:
wie kann ich in einer Mehrfachabfrage den größten (max.) Wert ziehen.
Anmerkung: Die Mehrfachabfrage bekomme ich gut hin, jedoch wenn ich in der einen Formel einen von der Abfrage eingeschränkten Bereich zusätzlich nach einer höchsten Nummer möchte, geht d...
28.08.2008 18:57:50
Thread-ID: 1005572
3 Beiträge
Koordinatenformat Nullen mit Minuszeichen
Gunter

Hallo, liebe Excelprofis, vielleicht kann mir jemand helfen?
Ich möchte, dass Excel Nullen mit einem negativen Vorzeichen darstellt.
Meine Absicht ist, mit Hilfe von Excel Navigationskoordinaten in ein anderes Format zu bringen. In der beigefügten Exceldatei
https://www.herber.de/...
29.08.2008 16:06:00
Thread-ID: 1005885
11 Beiträge
Anzeige
Zellen formatieren, wenn Bedingung NICHT erfüllt
onkelbobby

Hallo,
habe folgendes Makro um Zellen farbig zu markieren:
Sub färben() Dim loletzte As Long Dim loletzte2 As Long Dim i As Integer Dim a As Integer Worksheets(2).Activate loletzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count) loletzte2 = IIf(IsE...
02.09.2008 12:41:00
Thread-ID: 1006734
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige