Preis und Volumenberechnung in VBA
Gerhard
Kann mir jemand helfen?
Folgende Vorgaben:
UF_01_VOL_RUND.TB_ABMESSUNG = Durchmesser in mm
UF_01_VOL_RUND.TB_ZUSCHNITT = Höhe in mm
UF_01_VOL_RUND.TB_PREIS_KILO = Preis pro Kilogramm
UF_01_VOL_RUND.TB_SPEZ_GEWICHT = Kilogramm pro dm³
UF_01_VOL_RUND.TB_TEILE_NC = Anzahl Teile aus Höhe in mm
UF_01_VOL_RUND.Label13 = Ergebnis Gewicht pro Abmessung
UF_01_VOL_RUND.label14 = Preis pro Stück
Ich benötige Folgendes:
Private Sub TB_PREIS_KILO_Change()
- Volumenberechnung einer Rundstange (Formel: Durchmesser zum Quadrat mal PI, geteilt durch 4, das ganze mal Höhe)
((UF_01_VOL_RUND.TB_ABMESSUNG zum Quadrat mal PI)geteilt durch 4 mal UF_01_VOL_RUND.TB_ZUSCHNITT)
Hier erhalte ich ja mm³. Das ganze benötige ich aber in dm³
Dieses Ergebniss soll dann mit UF_01_VOL_RUND.TB_SPEZ_GEWICHT = Kilogramm pro dm³ multiplizert werden, Ausgabe in UF_01_VOL_RUND.Label13 = Ergebnis Gewicht pro Abmessung.
dieses Ergebniss wiederum mit UF_01_VOL_RUND.TB_PREIS_KILO = Preis pro Kilogramm multiplizieren
Ergebnissausgabe in UF_01_VOL_RUND.label14 = Preis pro Stück
Zusatz: Sollte in UF_01_VOL_RUND.TB_TEILE_NC = Anzahl Teile aus Höhe in mm etwas eingtragen sein, soll in dieser Zeile
Dieses Ergebniss soll dann mit UF_01_VOL_RUND.TB_SPEZ_GEWICHT = Kilogramm pro dm³ multiplizert werden, Ausgabe in UF_01_VOL_RUND.Label13 = Ergebnis Gewicht pro Abmessung.
das Ergebniss geteilt durch Inhalt UF_01_VOL_RUND.TB_TEILE_NC
Kann mir jemand hierbei unter die Arme greifen?
Ich habe meine Datei mal angehängt
Die Datei https://www.herber.de/bbs/user/65702.xls wurde aus Datenschutzgründen gelöscht
Grüsse Gerhard
Anzeige