quellcode
07.08.2006 15:25:56
Christopher
hab folgende werte in das label einer userform übergeben:
With Wirtschaftlichkeit1
.Label34.Caption = Round(result6, 2)
.Label25.Caption = Round(result3, 2)
.Label30.Caption = Volumenstrom.Value
.Label31.Caption = Round(Luftgeschwindigkeit1, 2)
End With
möchte nun im nächsten schritt mit diesen übergebenden werten eine funktion ausführen, aber es klappt nicht:
Function Stromkosten(Label30, Label34 _
, Label31, Ventilatorwirkungsgrad, Betriebsstundenzahl _
, Strombezugskosten)
'Berechnet Stromkosten für Lufttransport
'Volumenstrom in ³/h, Luftgeschwindigkeit im Rohr in m/s, Strompreis in /kWh
Stromkosten = (6 * 10 ^ -4) * ((Label30 * Label34 * Label31 ^ 2) / Ventilatorwirkungsgrad) * Betriebsstundenzahl * Strombezugskosten
End Function
die restlichen Funktionswerte (Ventilatorwirkungsgrad,Betriebsstundenzahl,Strombezugskosten) werden vom benutzer in textfelder eingegeben. das ist ja auch kein prob.
hat jemand ne idee.
mfg christopher
werden über