Dialog bei Solver (max Iter) ausstellen
31.10.2022 12:26:39
Thomas
ich nutze den Excel Solver im Rahmen eines Projektes und laufe ab und an in das Problem, dass mir der Solver bei Erreichen der maximalen Anzahl an Iterationen ein Popup wirft, in dem ich mit dem Zwischenergebnis entweder weitermachen, stoppen oder speichern kann. Ich möchte hier die aktuelle Lösung des Solvers akzeptieren und weiter mit der nächsten Zeile meines Codes machen. Aktuell sieht das bei mir so aus:
$
Solverreset
SolverOptions Precision:=0.000001, Iterations:=200, AssumeNonNeg:=True ', StepThru:=True
SolverOk SetCell:="indexProspectValueInitial", MaxMinVal:=1, ByChange:="indexWeightsInitial", EngineDesc:="GRG Nonlinear"
solverAdd CellRef:="indexWeightsInitial", relation:=1, FormulaText:=1
solverAdd CellRef:="indexWeightSumInitial", relation:=2, FormulaText:="sumWeights"
solverAdd CellRef:="indexVolaInitial", relation:=2, FormulaText:="fundVola"
SolverSolve UserFinish:=True
SolverFinish KeepFinal:=1
https://stackoverflow.com/questions/3984584/catch-max-time-iteration-dialog-box-when-using-excel-solver-in-vba
Vielen lieben Dank für Eure Hilfe schonmal