Makro wird nicht vollständig ausgeführt
11.05.2020 13:30:17
Marc
ich bin gerade dabei eine Schleife zum optimieren mittels Solver zu erstellen. Führe ich das Makro aus kommt weder ein Ergebnis, noch eine Fehlermeldung. Lasse ich den Code mit F8 durchlaufen, dann wird der eingerückte Teil (Ab "Do" bis "Loop While...") übersprungen. Hat jemand von euch vielleicht eine Idee, woran das liegen könnte?
Vielen Dank schon einmal vorab!
Sub DoLoop()
Dim I As Integer
Dim O As Integer
I = I + 1
O = Cells(6, 13)
If Cells(O + I, 9) "" Then
Do
SolverReset
SolverOK SetCell:="$AW$" & I, MaxMinVal:=2, ValueOf:=0, ByChange:= _
"$AP$&I,$AR$&I,AT$&I", Engine:=1, EngineDesc:="GRG Nonlinear"
SolverAdd CellRef:="$AP$" & I, Relation:=2, FormulaText:="$AR$" & I
SolverAdd CellRef:="$AP$" & I, Relation:=2, FormulaText:="$AT$" & I
SolverAdd CellRef:="$AR$" & I, Relation:=2, FormulaText:="$AT$" & I
SolverAdd CellRef:="$AV$" & I, Relation:=2, FormulaText:="1"
SolverSolve
I = I + 1
Loop While Cells(O + I, 1) ""
End If
End Sub