Office: (Office 2010) Excel Solver Makro

Hallo zusammen

Ich muss in einer Tabelle den Excel Solver rund 3'000 mal ausführen lassen. Deshalb habe ich mithilfe von Google folgendes Makro geschrieben:

Sub Makro1()
'
' Makro1 Makro
'

'

Dim i As Long
For i = 26 To 2854
SolverReset
SolverOk SetCell:=Range("BQ" & i), MaxMinVal:=1, ValueOf:=0, ByChange:=Range("BO" & i & "BP" & i), Engine:=1, EngineDesc:="GRG Nonlinear"
SolverAdd CellRef:=Range("BQ" & i), Relation:=1, FormulaText:=Range("BK" & i)
SolverAdd CellRef:=Range("BO" & i & "BP" & i), Relation:=4, FormulaText:="integer"
SolverAdd CellRef:=Range("BV" & i), Relation:=3, FormulaText:="1"
SolverSolve True
Next
End Sub

Leider funktioniert die Geschichte nicht. Ich erhalte die Fehlermeldung:

Laufzeitfehler '1004'

Die Methode 'Range' für das Objekt '_Global' ist fehlgeschlagen.

Kann mir jemand helfen und zeigen, wo ich den Fehler mache?

Vielen Dank für eure Bemühungen!

LG daevu

 

Habs selber geschafft =)

 

Kannst ja hier reinschreiben, was der Fehler war, falls andere auf ein ähnliches Problem stoßen ;)