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