Hallo,
ich habe eine, meiner meinung nach simple function geschrieben, aber wenn ich sie anwende er halte ich immer einen #WERT fehler. Ich habe alle Zellen, die ich verwende auf Zahl formatiert, ich weis nicht woran es sonst liegen könnte.
Könntet ihr mir helfen
Function deltaTm(ts As Double, tz As Double, tma As Double, tme As Double)
'Berechnet die mittlere Temperaturdifferenz nach A.Kurzhals,2007
'tme= Temperatur am Manteleintritt (Vorlauftemperatur)
'tma= Temperatur am Mantelaustritt zu Beginn des Kühl/Heizvorganges
'ts= Temperatur Behälterinhalt Beginn
'tz=Temperatur Behälterinhalt Ende
Dim k, ln As Double
'Berechnung Temperaturkennzahl
k = (ts - tme) / (ts - tma)
'Berechnung Hilfswert für Worksheetfunction.LN
ln = (ts - tme) / (tz - tme)
'Berechnung mittlere Temperaturdifferenz
deltaTm = ((ts - tz) * (k - 1)) / ((WorksheetFunction.ln(ln)) * k * (WorksheetFunction.ln(k)))