Office: Probleme beim Dividieren mit VBA und Excel

Hallo zusammen,

habe ein Problem wenn ich zwei Zahlen dividiere, ich glaube es könnte mit den Formaten zusammenhängen, aber ich habe die Lösung noch nicht gefunden:
Ich habe zwei Zahlen, die ich dividieren möchte. Bei den meisten Zahlen spuckt mir VBA das richtige aus, bei einigen nicht. Mir ist aufgefallen, dass es Probleme geben könnte, wenn Nachkommastellen existieren.

Die Zahl 1340862.96 soll durch 1278229.7 dividiert werde. Die Zahlen stammen von einer Textdatei und wurden als Text eingelesen. Mit blabla.Value wird die Zahl auf ein anderes Blatt kopiert und erscheint so :1.340.862,96 (1.278.229,70), also mit Komma statt Punkt und in Zahlenformat. Dividiere ich jetzt diese beiden Zahlen auf dem Excelblatt, bekomme ich die richtige Lösung, 1,049. Verwende ich VBA und teile die beiden Zahlen in dieser Form: blabla.Value / blabla.Value, dann gibt mir das Programm 10,49 aus.
Es wird irgendwo das Komma verschoben, aber ich verstehe nicht ganz wie.

Die folgenden Zahlen werden jedoch in beiden Fällen richtig geteilt (trotz Nachkommastelle):

264389.03 255645.94
1002300.0 1000000.0
1034500.0 1000000.0
1019800.0 1000000.0

Hat jemand eine Idee woran das liegen könnte?

Danke,
jil

:)

 

Hallo, jil,

kann ich nicht bestätigen:

Code:

Gruß
LS

 

Hallo,

meinst du ich soll Variablen verwenden? Ich habe das schon probiert, aber das klappt leider auch nicht.

Gruß,
jil

 

Hallo, Jil,

in diesem Fall handelt es sich nicht um Variablen, sondern um die Zellbezeichnungen des aktiven Blattes. *wink.gif* Und damit kam bei mir und VBA das richtige Ergebnis heraus.

Gruß
LS

 

Hallo Lumpensammler,

ich nehme an, dass du in VBA den Wert der Zelle verwendest nachdem der Wert schon in Zahlenformat in einer Zelle vorhanden ist. Das funktioniert bei mir auch. Was ich meine ist, dass es nicht funktioniert, wenn ich die Zelle in Textformat nehme und mit .Value umforme und die Zahlen dividiere bevor ich sie in die Zellen schreibe.
Das klappt aus irgendeinem Grund nicht (bei mir zumindest nicht).

Aber danke für die Erläuterung vorhin :-)

Gruß,
jil

 

Hallo, Jil,

dann eben so (Umwandlungsfunktion nutzen):

Code:

Gruß
LS

 

Das hat geklappt! Könntest du mir kurz erklären, was der Unterschied zwischen Val() und .Value ist?

Danke & Gruß,
jil

 

Hallo, jil,

.Value ist der angezeigte Wert der Zelle, während Val() gem. Hilfe die in einer Zeichenfolge enthaltenen Zahlen als einen numerischen Wert eines geeigneten Typs zurückgibt. Während .Value also jedes Format sein kann, liefert Val() nur Zahlenwerte: entweder die Zahl vom Typ als solche oder 0.

Gruß
LS