Dezimalfehler
15.03.2013 11:00:43
Matze
ich programmiere in VBA erst seit einer Woche deswegen bin ich auf die Hilfe erfahrener Leute angewiesen (euch!).
Zu meinem Problem:
Der Faktor ews ist als double definiert und die Eingabe erfolgt über ein Textfeld. Leider will mein Programm nicht damit rechnen. Bis zur fettgedruckten Zeile kein Problem dann kommt Laufzeitfehler 13.
In diesem Fall ist ews 0.002 erechne ich ews über andere Parameter, (was nur in wenigen Fällen mögllich ist) hier eclw-eclk (0.012-0.01), bekomme ich mein Ergebnis ohne Probleme. Könnt ihr mir helfen?
Sub Wärmeduchgang()
'wärmedurchgang k aus alpha aus Nu
alphaw = anuw * lambdaw / eclw
alphak = anuk * lambdak / eclk
alphakkorr = alphak * (eclk / (eclk + ews))
k = 1 / ((1 / alphakkorr) + (1 / alphaw) + ((eclw - eclk) / ewlambda) + (efw) + (efk))
aaben = eqgef / (k * acmtd)
End Sub