Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: TextBox und ComboBox

TextBox und ComboBox
01.11.2015 16: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

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: TextBox und ComboBox
01.11.2015 17: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

Anzeige
AW: TextBox und ComboBox
01.11.2015 17: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

Anzeige
AW: TextBox und ComboBox
01.11.2015 17: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 17: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.
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige