Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
664to668
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
664to668
664to668
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
mit textboxen rechnen
10.09.2005 08:01:12
Torsten
hallo,
ich habe auf einer userform 6 textboxen.
in den textboxen 1-4 können einträge getätigt werden.
in textbox5 ist der wert vom blatt: tabelle1, zelle: A1.
nun zu meinem problem:
in textbox6 soll immer nach änderung in den textboxen 1-4 das ergebniss erscheinen von textbox5 minus den einträgen der textboxen 1-4.
zur verdeutlichung ein beispiel.
in der zelle a1 vom tabellenblat1 steht 12.358,05 €
dieser wert wird in textbox5 eingetragen.
nun gebe ich in textbox1 150,00 € ein. in textbox6 soll nun 12.208,05 € stehen.
quasi eine "LIVE-Berechnung" in textbox6.
bei eingabe in textbox2 von 200,00 €, erscheint in textbox6 dann 12.008,05 €.
das geliche mit textbox 3 und 4.
ich hoffe mich einigermassen klar ausgedrückt zu haben, ansonsten fragt gerne nach.
vielen lieben dank für eure hilfe
Gruss Torsten

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: mit textboxen rechnen
10.09.2005 08:39:36
Hajo_Zi
Hallo Torsten,
ich gehe mal davon aus das Du schon ein Prüfung hast das nur numerische Werte eingegeben werden.

Option Explicit
Private Sub TextBox1_Change()
Berechnen
End Sub
Private Sub TextBox2_Change()
Berechnen
End Sub
Private Sub TextBox3_Change()
Berechnen
End Sub
Private Sub TextBox4_Change()
Berechnen
End Sub
Private Sub Berechnen()
Dim DoWert As Double
If TextBox5 <> "" Then
DoWert = TextBox5
If TextBox4 <> "" Then DoWert = DoWert - TextBox4
If TextBox3 <> "" Then DoWert = DoWert - TextBox3
If TextBox2 <> "" Then DoWert = DoWert - TextBox2
If TextBox1 <> "" Then DoWert = DoWert - TextBox1
TextBox6 = DoWert
End If
End Sub

Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.


Anzeige
hi Hajo, ja. vielen lieben dank o.t.
10.09.2005 08:51:39
Torsten
Gruss Torsten

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige