so sollte es schneller laufen.
For
i = 10325
To
10326
SolverReset
SolverOk SetCell:=
"$AW$"
& i, MaxMinVal:=1, ValueOf:=0, ByChange:=
"$C$"
& i &
",$D$"
& i &
",$E$"
& i &
",$F$"
& i &
",$G$"
& i &
",$H$"
& i &
",$I$"
& i &
",$J$"
& i &
",$K$"
& i &
",$L$"
& i &
",$M$"
& i &
",$N$"
& i &
",$O$"
& i &
",$P$"
& i &
",$Q$"
& i &
",$R$"
& i &
",$S$"
& i &
",$T$"
& i &
",$U$"
& i &
",$V$"
& i &
",$W$"
& i &
",$X$"
& i, Engine:=2, EngineDesc:=
"Simplex LP"
SolverAdd CellRef:=
"$BU$"
& i, Relation:=1, FormulaText:=
"$BW$"
& i
SolverAdd CellRef:=
"$CU$"
& i, Relation:=1, FormulaText:=
"$CW$"
& i
SolverAdd CellRef:=
"$DU$"
& i, Relation:=1, FormulaText:=
"$DW$"
& i
SolverAdd CellRef:=
"$EU$"
& i, Relation:=1, FormulaText:=
"$EW$"
& i
SolverAdd CellRef:=
"$FU$"
& i, Relation:=1, FormulaText:=
"$FW$"
& i
SolverAdd CellRef:=
"$GU$"
& i, Relation:=1, FormulaText:=
"$GW$"
& i
SolverAdd CellRef:=
"$HU$"
& i, Relation:=1, FormulaText:=
"$HW$"
& i
SolverAdd CellRef:=
"$IU$"
& i, Relation:=1, FormulaText:=
"$IW$"
& i
SolverAdd CellRef:=
"$JU$"
& i, Relation:=1, FormulaText:=
"$JW$"
& i
SolverAdd CellRef:=
"$KU$"
& i, Relation:=1, FormulaText:=
"$KW$"
& i
SolverAdd CellRef:=
"$LU$"
& i, Relation:=1, FormulaText:=
"$LW$"
& i
SolverAdd CellRef:=
"$MU$"
& i, Relation:=1, FormulaText:=
"$MW$"
& i
SolverAdd CellRef:=
"$NU$"
& i, Relation:=1, FormulaText:=
"$NW$"
& i
SolverAdd CellRef:=
"$OU$"
& i, Relation:=1, FormulaText:=
"$OW$"
& i
SolverAdd CellRef:=
"$PU$"
& i, Relation:=1, FormulaText:=
"$PW$"
& i
SolverAdd CellRef:=
"$QU$"
& i, Relation:=1, FormulaText:=
"$QW$"
& i
SolverAdd CellRef:=
"$RU$"
& i, Relation:=1, FormulaText:=
"$RW$"
& i
SolverAdd CellRef:=
"$SU$"
& i, Relation:=1, FormulaText:=
"$SW$"
& i
SolverAdd CellRef:=
"$TU$"
& i, Relation:=1, FormulaText:=
"$TW$"
& i
SolverAdd CellRef:=
"$UU$"
& i, Relation:=1, FormulaText:=
"$UW$"
& i
SolverAdd CellRef:=
"$VU$"
& i, Relation:=1, FormulaText:=
"$VW$"
& i
SolverAdd CellRef:=
"$WU$"
& i, Relation:=1, FormulaText:=
"$WW$"
& i
SolverSolve
True
Next
i
Application.Calculate
Application.Calculation = xlCalculationAutomatic
Application.screenupdate = True
Application.DisplayAlerts = True
End
Sub