title: VBA+Solver loop not printing results for each row
body: <p>I am a Visual Basic for Application beginner and got the following problem.</p>
  
  <p>I have to use the Excel Solver to change two variable cells in one row, to let go another cell to zero in the same row. The cells are connected by simple calculations in Excel itself. Also some constraints have to be defined. </p>
  
  <p>Using the code below, only the last defined row will be rewritten into the cells in excel. The rows before were calculated but not rewritten.</p>
  
  <pre><code>Sub solverloop() 
  
      Dim i As Long 
      For i = 96 To 154 
          SolverReset 
          SolverOk SetCell:="$AE$" &amp; i, MaxMinVal:=3, ValueOf:=0, ByChange:=Range(Cells(i, "V"), Cells(i, "W")), Engine:=1, EngineDesc:="GRG-Nichtlinear" 
  
          SolverAdd CellRef:=Range(Cells(i, "V"), Cells(i, "W")), Relation:=3, FormulaText:="0" 
          'Solving the Modell, but message box which must be confirmed by the user will not be displayed
          SolverSolve UserFinish:=True
          'Finishing the model and keep the last result
          SolverFinish KeepFinal:=1 
      Next i
  
  End Sub 
  </code></pre>