Office: VBA Schleife für Solver

Hallo Zusammen,

ich habe mit Excel 2010 ein Makro erstellt (Makro 24) und müsste dies nun ca. 3000 mal durchführen. Um nicht alles von Hand zu machen wollte ich das Makro mit einer Schleife durchlaufen lassen. Leider habe ich jedoch drei Bereiche in meinem Code (ByChange, und ein CellRef) bei denen das mit dem „i“ nicht funktioniert hat.

Könnt Ihr mir helfen?

Bereits jetzt vielen Dank

Gruss Desire

Code:

Sub Makro24()

    SolverReset
    SolverOk SetCell:="$AQ$7", MaxMinVal:=1, ValueOf:="0", ByChange:="$Y$7:$AN$7"
    SolverAdd CellRef:="$AO$7", Relation:=2, FormulaText:="1"
    SolverAdd CellRef:="$Y$7:$AN$7", Relation:=3, FormulaText:="0"
    SolverAdd CellRef:="$U$7", Relation:=2, FormulaText:="0.005"
    SolverOk SetCell:="$AQ$7", MaxMinVal:=1, ValueOf:="0", ByChange:="$Y$7:$AN$7"
    SolverSolve
    
End Sub

Code:

Sub Makro25()

Dim i As Integer
Dim imax As Integer
imax = 3000
For i = 2 To imax

SolverReset
    SolverOk SetCell:="$AQ$" & i, MaxMinVal:=1, ValueOf:="0", ByChange:="$Y$ & i :$AN$ & i"
    SolverAdd CellRef:="$AO$" & i, Relation:=2, FormulaText:="1"
    SolverAdd CellRef:="$Y$ & i :$AN$ & i ", Relation:=3, FormulaText:="0"
    SolverAdd CellRef:="$U$" & i, Relation:=2, FormulaText:="0.005"
    SolverOk SetCell:="$AQ$" & i, MaxMinVal:=1, ValueOf:="0", ByChange:="$Y$ & i :$AN$ & i"
    SolverSolve
Next i
   
End Sub

 

Hallo Desire,

:="$Y$ & i &":$AN$ & i"

Gruß hajo

 

Hallo Desire,

an den beiden Stellen mit dem Parameter 'ByChange' muss eine kleine Korrektur durchgeführt werden:
ByChange:="$Y$" & i & ":$AN$" & i
Es müssen jeweils genau 4 Anführungszeichen sein.

 

Vielen Dank!

Hallo Ihr beiden!

Vielen Dank für eure schnelle Hilfe! Mit jeweils 4 Anführungszeichen funktioniert es! Ihr habt mir echt weitergeholfen!!! Tausend Dank!!!

Liebe Grüsse
Desire