ich habe mir heute eine "kleine" Funktion in VBA geschrieben.
Sie sollte in Abhängigkeit von einem Anfangsdatum T1 und einem Enddatum T2 automatisch aus einer Tabelle (in einem anderen Tabellenblatt) zwei Werte auslesen. Die Zeilen dieser Tabelle sind nach "Anfangsdaten" untergliedert (,die T1 entsprechen sollen), wohingegen die Spalten dieser Tabelle in kategoriesierte Zeiträume untergliedert sind. In der Tabelle selbst stehen dann die benötigten Werte. Die beiden ermittelten Werte sollten abschließend - falls nötig - interpoliert werden.
Leider spuckt Excel bei Anwendung des Codes die Fehlermeldung #WERT! aus...Bräuchte bitte dringend Hilfe!
Hier der Code, vllt findet jemand meine/n Fehler:
Function MATCHING(ByVal T1 As Double, _
ByVal T2 As Double) As Double
' Dimensionierung der Hilfsvariablen
Dim x As Integer, _
y As Integer, _
i As Integer, _
j As Integer, _
T_l As Double, _
T_k As Double, _
r_l As Double, _
r_k As Double, _
Zeile As Double, _
lambda As Double, _
RLZ As Double, _
RLZ_year As Double
' Restlaufzeit in Tagen
RLZ = T2 - T1
' Restlaufzeit in Jahre
RLZ_year = Application.WooksheetFunction.YearFrac(T1, T2, 1)
' Falls Restlaufzeit