|
Hallo zusammen,
ich habe folgendes Problem:
Ich berechne erst mit den mm³ eines Karton und der Masse eines Werkstück, wie viele Teile in einen Karton passen, das funktioniert auch Problemlos.
Anschließend möchte ich mit der Menge und dem Gewicht pro Stück das Gesamtgewicht pro Karton ausrechnen, das dann ausgegeben werden soll.
Dieses Ergebnis ist aber immer 0, auch wenn Menge und Gewicht p. Stk. korrekt berechnet wurden (habe ich beim debuggen geprüft).
Wo kann der Fehler liegen? Ich kann es gar nicht nachvollziehen.
Masse = Sheets("Makro").Range("F11")
InnenMenge = Val(mm3) / Val(Masse)
InnenMenge = Val(WorksheetFunction.RoundDown(InnenMenge, 0))
GesGewicht = Val(InnenMenge) * Val(Gewicht)
GesGewicht = Val(WorksheetFunction.RoundDown(GesGewicht, 3))
Label7.Caption = InnenMenge
Label8.Caption = GesGewicht
Alle Variablen wurden als double definiert. Wie gesagt, Masse zieht er sich problemlos aus der Datei, InnenMenge berechnet er ebenfalls korrekt. Die Werte der Variablen werden im Debug-Modus auch als Zahl angezeigt (zB 7 statt "7").
Vielen Dank im Voraus für eure Hilfe!
|