TextBox und ComboBox

Forumthread: TextBox und ComboBox
4 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: TextBox und ComboBox

01.11.2015 17:49:47

Ewgenij

Hallo Zusammen
Vorab: Ich habe aus dem Internet eine Programm das etwa meinen Vorstellungen entspricht heruntergeladen und erweitert. (Maske1) http://www.excel-werkstatt.de/index.php?site=download/download&sortiert=eman
Nun habe ich das Folgende Problem:
Mein Ziel ist es TextBox3(Geldeingang)durch ComboBox3(Geteilt)zu teilen und in TextBox5(Umsatz)auszugeben.
Also TextBox5 = TextBox4/ComboBox3 hab alles Mögliche probiert, jedoch ohne Erfolg!
Habe viel Experimentiert und habe auch nicht wirklich viel Ahnung von Programmiersprachen.
https://www.herber.de/bbs/user/101175.xlsm
Ich hoffe ihr könnt mir weiterhelfen.
Vielen Dank im voraus

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: TextBox und ComboBox

01.11.2015 18:16:55

Daniel
AW: TextBox und ComboBox

01.11.2015 18:40:01

Ewgenij
AW: TextBox und ComboBox

01.11.2015 18:43:07

Daniel
AW: TextBox und ComboBox

01.11.2015 18:53:10

Ewgenij

AW: TextBox und ComboBox

01.11.2015 18:16:55

Daniel

Hi
im Prinzip mit folgendem Code:

If isNumeric(Textbox3.Text) and IsNumeric(combobox3.Value and Combobox3.Text  "0" then
Textbox5.Text = Format(Cdbl(Textbox3.text)/Cdbl(Combobox3.value), "0.00")
else
Textbox5.Text = ""
end if

diesen Code musst du ausführen lassen, wenn entweder die Textbox3 oder die Combobox3 geändert hast, dh der Code muss ins Change-Event der beiden Steuerlemente.
Gruss Daniel

AW: TextBox und ComboBox

01.11.2015 18:40:01

Ewgenij

Hallo Daniel,
Erstmal Danke für deine Mühe,
Habe den Code eingefügt.
Bekomme jedoch jetzt den Fehler: Fehler beim Kompilieren Erwartet: Listentrennzeichen oder )
Habe drauf ein Klammer am Ende wo Combobox3.Text steht gesetzt. Ist das richtig so?

If isNumeric(Textbox3.Text) and IsNumeric(combobox3.Value and Combobox3.Text) "0" then
Textbox5.Text = Format(Cdbl(Textbox3.text)/Cdbl(Combobox3.value), "0.00")
else
Textbox5.Text = ""
end if

Daruf hin bekomme ich nun den Fehler: Laufzeitfehler '13' Typen unverträglich

AW: TextBox und ComboBox

01.11.2015 18:43:07

Daniel

Hi
am besten so

 If isNumeric(Textbox3.Text) and IsNumeric(combobox3.Value) and Combobox3.Text "0" then

gruss Daniel

AW: TextBox und ComboBox

01.11.2015 18:53:10

Ewgenij

Super hat funktioniert einwandfrei.
Ich danke dir vielmals für deine Mühe.
Ein fetten Like für die Hile hier um Forum.
Wünsche dir noch einen schönen Sonntagabend.