Habe folgenden Code:
Private Sub txt_rabatt2_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
rabatt2 = 0
brutto = 0
brutto = CDbl(txt_Betrag_Brutto)
rabatt1 = CDbl(txt_rabatt1)
rabatt2 = CDbl(txt_rabatt2)
txt_Betrag_Netto = brutto * ((100 - rabatt1) / 100) * ((100 - rabatt2) / 100)
End Sub
Nun ist es so wenn ich die Textbox (txt_Betrag_Netto) an eine Tabelle übergeben will, bekomme ich immer *Typfehler*.
Was mir aufgefallen ist, ist dass in der Textbox die ausgerechnet wird die Zahl mit einem Komma angegeben wird. Normalerweise sollte dies doch ein Punkt sein oder?! Wie kriege ich das hin.
Da es sich eh im Währungsbeträge handelt, wäre es gut wenn man die Zahlen gleich auf Zwei stellen runden kann.
Ach ja die Textbox ist in einer UF.
Danke