Office: Wert von Textbox mit Wert von Combofeld multiplizieren

Hallo zusammen,

ich habe eine Userform erstellt und mehrere Textboxen und eine Combobox erstellt.
In einer der Textboxen soll ein Nettopreis eingegeben werden, in der Combobox ein MwSt-Satz ausgewählt werden. In einer "zweiten" Textbox soll dann das Produkt der Textbox mit der Combobox ausgegeben werden. Leider bekomme ich immer eine Fehlermeldung.

Hier mein Code dazu.
Ich hoffe ihr könnt mir helfen oder mir Anregungen für eine einfachere VBA-Programmierung geben.

PS. Kann man die Textbox automatisch ausfüllen lassen, oder geschieht dies generell erst, wenn ich dies durch einen Comandbutton ausführe?



Private Sub UserForm_Initialize()

'Produktnummer bestimmen
Produktnummer = WorksheetFunction.Max(tb_Kundendatenbank.Columns(2)) + 1


'ComboBoxen befüllen
With Produkt_neu.ComboboxMwSt
.AddItem "0"
.AddItem "7"
.AddItem "19"

End With
ComboboxMwSt.ListIndex = 2

Dim Nettopreis As Double
Dim Gesamt1 As Integer

Nettopreis = TextboxNettopreis.Value
Mwst = ComboboxMwSt.Value
Gesamt1 = Mwst * Nettopreis/100 + Nettopreis
TextboxBruttopreis.Value = Gesamt1

 

Du multiplizierst Text was nicht geht. Es fehlt Cdbl()

 

Hi,

Du multiplizierst Text was nicht geht.

stimmt natürlich in diesem Fall nicht, da "Zahl"strings mit Hilfe von mathematischen Operationen durchaus von Excel als Zahlen erkannt werden. Da Du aber nicht schreibst, welche Fehlermeldung genau Du bekommst, ist es ohne Deine Mappe Raterei (z.B. steht die MwSt mit 19% in der Combobox - da hilft dann auch keine Umwandlungsfunktion). Stell uns die Mappe doch mal (auf das Notwendigste eingedampft) zur Verfügung.

 

Hallo,

ich habe dir im Arbeitsblatt "Tabelle1" die strukturierte Tabelle "tbKunden" eingefügt, zusammen mit dem Button "Neues Produkt".
Klickst du auf diesen, wird das Formular "Neues Produkt" angezeigt, in welchem du dann deine Einstellungen vornehmen kannst.
Schlussendlich kannst du diese Einstellungen als neuen Satz an die Tabelle "tbKunden" anfügen.

Das Ganze ist natürlich nur als Demo-Beispiel gedacht, um Anregungen für deine Programmierarbeit zu liefern.

 

Vielen Dank für die Rückmeldung.
Nein, die MwSt steht als reine Zahl in der Combobox. Habe sowohl mit Cdbl() als auch ohne probiert und jedes mal eine Fehlermeldung bekommen.
Scheinbar habe ich irgendwo anders einen Fehler drin.

Ich passe jetzt einfach die Datei von Exl121150 an meine Bedürfnisse an. Bevor ich da in der kompletten Datei auf Fehlersuche gehe.

Vielen Dank an euch alle für die Schnelle und äußerst hilfreiche Unterstützung.

 

Du hast es an der falschen Stelle geschrieben. An dere richtigen Stelle geht es.
Boris hat ja geschriebenm es braucht nicht sein, darum bin ich raus.

Gruß Hajo

 

Moin RD,
als Alternative zur Combobox gibt es für die MwSt. noch ein Frame mit drei Optionsbuttons. Spart unnötige Klicks. Ich habe da mal was gebastelt. Das dann dahingehend zu erweitern, dass alle Deine Tabellendaten berücksichtigt werden, und der Bruttobetrag weiter verarbeitbar bleibt ist dann eher einfach.
Grüße & viel Spaß

 

Moin RD,
Dein PS im TO habe ich eben erst gesehen: Tbx automatisch füllen. Zum Füllen benötigst Du immer einen Event/Trigger/Auslöser. Das kann UserForm_Initialize sein oder ein Wechsel von einer Tbx in die andere. Du kannst die Tbx auch bereits in den Eigenschaften>Text vorbelegen, um dem Benutzer z.B. den Hinweis zu geben, hier muss der Nettobetrag hin. Klickt er die Tbx an, verschwindet der Hinweis (Event tbx.enter) und er kann seinen Betrag eingeben. Das ist sinnvoll, wenn immer wieder neue Nutzer mit der USF arbeiten. Alternativ lässt sich die ControlTip-Eigenschaft nutzen. Dann erscheint einfach ein Hinweis, wenn man den Cursor über der Tbx platziert.
Vorschlag: Lass uns das Thema in einer Unterhaltung besprechen und wir finden sicher eine Lösung.
Grüße

 

Hi,

Nein, die MwSt steht als reine Zahl in der Combobox

Niemals. Außerdem hast Du nach wie vor nicht geschrieben, welche Fehlermeldung genau Du erhältst. Und die Mappe hast Du auch nicht hochgeladen. So wird es für Dich schwierig, passende Antworten zu erhalten.