Iterative Optimierungsfunktion
09.07.2017 16:14:20
Mike
im Zuge einer Optimierung, war ich gezwungen mir eine Funktion zu programmieren, die mir iterativ in gewisser Schrittweite Werte in eine Zelle zurückgibt, bis eine Zielzelle, deren Berechnung in der Arbeitsmappe durchgeführt wird, einen minimalen Wert annimmt.
Die Berechnung der Zielzelle hängt dabei vom iterativ Berechneten Wert, der Zelle ab, in der die Funktion aufgerufen wird.
Heißt soviel wie, erst soll der Iterationsschritt in die zelle des Funktionsaufrufes geschrieben werden, dann soll die Excelmappe neuberechnet werden, und jetzige Wert der Zielzelle mit seinem Vorgänger verglichen werden, solange bis dieser wieder größer wird (Minimum erreicht).
folgender Code ist mir bisher eingefallen:
Function Schleife(relativeAbweichung As Range)
Dim startwert As Single
Dim Abbruch As Single
Dim i As Integer
Application.Volatile
i = 0
Schleife = -1
Abbruch = relativeAbweichung.Value
Do
Schleife = Schleife + 0.01
i = i + 1
Application.Volatile
If Abbruch