Supportnet Computer
Planet of Tech

Supportnet / Forum / Skripte(PHP,ASP,Perl...)

VBA: Bei WorksheetFunction.sum wird automatisch gerundet - warum? und was dagegen tun?





Frage

Hallo zusammen, bin mal wieder auf Eure Hilfe angewiesen. Habe folgenden Code: [code]x = WorksheetFunction.Sum(Sheets_("Zusammenfassung_Fertigung").range(Sheets_("Zusammenfassung_Fertigung").cells(9, 3), Sheets_("Zusammenfassung_Fertigung").cells(i, 3))) Sheets("Zusammenfassung_Fertigung").cells(i + 1, 3).Value = x[/code] Die Summe wird immer gerundet. 1,5 + 1,2 ergibt somit 3 anstatt 2,7. Was kann ich dagegen tun? Vielen Dank im Vorraus schonmal! Catze

Antwort 1 von Flupo

Ich habe zwar
WorksheetFunction.Sum(
in der Hilfe nicht gefunden aber probiere mal folgendes aus:

Definiere den Datentyp für die Variable x als Dezimalzahl:

DIM x As Single


Falls das auch nicht funktioniert überprüfe mal die Zellformatierung der Ausgabezelle. Könnte sein, dass dort das Problem liegt.

Gruß Flupo

Antwort 2 von Catze

Hi Flupo,

Danke schön!!! Das mit dem single war der Fehler ...

Vielen Dank auf jeden Fall, ich versuch jetzt mal vom Schlauch zu hüpfen ;p

Catze