Problem: Textboxen addieren
02.06.2004 15:55:58
00011011
Userform: Eingabemaske (startet mit Dateiaufruf)
Textbox: Nettopreis, Gebühr, Gebühr2, Endpreis
Befehlsbutton: Berechnen
Tabelle: Daten
Nach start der Datei wird der Anwender mit der Userform "Eingabemaske" aufgefordert, die Werte für die Felder "Nettopreis", "Gebühr" und Gebühr2" einzutragen. Mit anschließenden klick auf "Berechnen" soll in "Endpreis" die Summe der drei Felder erscheinen.
Da diese Eingabemaske in naher zukunft relativ groß werden soll (viel mehr Eingaben durch den Benutzer), versuche ich mich mit einem primitiven Trick.
Sub Berechnen_Click()
Sheets("Daten").Activate
[A3] = Me.Nettopreis.value
[A4] = Me.Gebuehr.value
[A5] = Me.Gebuehr2.value
Me.Endpreis.value = [A6]
End Sub
Die eingegebenen Daten werden in die Zellen A3 bis A5 in Daten kopiert. In der Zelle A6 wird die Summe Mittels Formel (Summe(A3:A5)) berechnet und in "Endpreis" zurückgegeben.
Leider funktioniert meine Idee nur mit ganzen Zahlen und nicht mit Dezimalzahlen.
Kann mir hier irgendwer weiterhelfen?
Ich bedanke mich schon Mal im Voraus
Gruß aus Köln
Christian