Diskussionsgruppe: Tabellenkalkulation
Hi!
Ich habe eine Userform mit 6 Komboboxen. In diesen komboboxen kann man 10 werte von 0,1 bis 1,0. Wurde nichts ausgewählt hat die box den wert "0"
Ich möchte das diese inhalte addiert werden. habe das mit folgendem code probiert:
Dim a, b, c, d, e, f
a = ComboBox1.Value
b = ComboBox2.Value
c = ComboBox3.Value
d = ComboBox4.Value
e = ComboBox5.Value
f = ComboBox6.Value
TextBox14.Value = a * 1 + b * 1 + c * 1 + d * 1 + e * 1 + f * 1
(Wenn ich die werte nicht mit 1 multipliziere, dann schreibt mit VBA in das textfenster die werte einfach hintereinander)
Das ergebnis stimmt aber nie! Anscheinend ignoriert VBA alles was vor dem komma steht, da z.B
0,2+1,0 als ergebnis 3 angezeigt wird.... oder
0,3+0,8=11
1,0+0,7=17
1,0+1,0=2 (wenigstens das ist richtig)
Wenn ich in der deklaration der variablen
As Integer, oder
As Single, oder
As Double
eingebe ändert sich auch nix....
Zudem würd ich gerne wissen in welchen Sub ich das schreiben müsste, damit das ergebnis sofort nach der änderung der komboboxen angezeigt wird
Ich könnte die Summe auch in dem Exel-Sheet in das die daten aus den komboboxen geschrieben werden errechnen, und das ergebnis in der Userform anzeigen, aber auch das klappt nicht.
Von: !mpact Datum: 05.12.2006, 14:03
|
|
