ich möchte eine Berechnung erstellen, wo ausgehend von einem Hochpunkt der Tiefpunkt ermittelt werden soll.
Nun habe ich eine Function erstellt die leider nicht funktioniert. Wenn ich den Code jedoch nahezu unverändert in eine Sub integriere läuft es. Woran kann das liegen?
Function MaxDrawdown(Bereich As Range) As Double
Dim intcol%, von%, bis%
Dim Maxkapital As Double, Minkapital As Double
Maxkapital = Application.WorksheetFunction.Max(Bereich)
intcol = Cells.Find(Maxkapital).Column
von = Bereich.Find(Maxkapital).Row
bis = Bereich.End(xlDown).Row
Minkapital = Application.WorksheetFunction.Min(Range(Cells(von, intcol), Cells(bis, intcol)))
MaxDrawdown = (1 - Minkapital / Maxkapital) * 100
End Function
Beispiel 2
Sub MaxDrawdown1()
Dim intcol%, von%, bis%
Dim Maxkapital As Double, Minkapital As Double
Set Bereich = Range("B23:B3900")
Maxkapital = Application.WorksheetFunction.Max(Bereich)
'++++++++++++++++++ Hilfskonstruktion zur Bestimmung des Tiefpunktes ab dem Hochpunkt
intcol = Bereich.Find(Maxkapital).Column
von = Bereich.Find(Maxkapital).Row
bis = Bereich.End(xlDown).Row
Minkapital = Application.WorksheetFunction.Min(Range(Cells(von, intcol), Cells(bis, intcol)))
Debug.Print intcol, von, bis, Maxkapital, Minkapital
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++
MaxDraw = (1 - Minkapital / Maxkapital) * 100
End Sub
Danke
Matthias