Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 16:39:00
ältere VBA Codes automatisch neu strukturieren
20.04.2024 16:36:42
Arbeitsblatt Script auslagern in Modul
20.04.2024 16:28:25
zwei Makro in einem zusammenführen?
20.04.2024 15:30:14
Warum Verweis zeigt Falsch an
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1452to1456
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1452to1456
1452to1456
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

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.

Links zu Excel-Dialogen

ComboBox TextBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige