Office: Solver Marko erstellen

Hey, wollte einen Solver mit Makros programmieren. Mit einer festen Zeile hat es funktioniert:

Sub Makro1()

' Makro1 Makro
'
' Tastenkombination: Strg+b
'
SolverOk SetCell:="$B$78", MaxMinVal:=2, ValueOf:="0", ByChange:="$D$78:$F$78"
SolverSolve Userfinish:=True
End Sub


Jetzt will ich es über einen Bereich machen, also so dass sich B die Zahl und hinten bei byChanges sich die Zahlen ändern. Dass hat leider nicht funktioniert:

Sub Makro1()
'
' Makro1 Makro
'
'
' Tastenkombination: Strg+b
'
For i = 59 To 78
SolverOk SetCell:="$B$” & i, MaxMinVal:=2, ValueOf:="0", ByChange:="$D$” & i & “:$F$” & i
SolverSolve Userfinish:=True
Next i
End Sub

Was ist daran falsch, kann mir bitte jemand helfen.

Danke

 

Hallo!

Wenn das Makro mit folgender Zeile funktioniert hat:
SolverOk SetCell:="$B$78", MaxMinVal:=2, ValueOf:="0", ByChange:="$D$78:$F$78"
und mit folgender/n Zeile(n) nicht funktioniert:
SolverOk SetCell:="$B$” & i, MaxMinVal:=2, ValueOf:="0", ByChange:="$D$” & i & “:$F$” & i
dann kann es nur an der falschen Art von Anführungszeichen liegen; stellt man diese um, müsste es funktionieren:
SolverOk SetCell:="$B$" & i, MaxMinVal:=2, ValueOf:="0", ByChange:="$D$" & i & ":$F$" & i

 

Habe ich angepasst, er zeigt aber immer noch Fehler beim Kompilieren Sub oder Funktion nicht definiert.

Hier nochmal die neue Maske:


Sub Makro1()
'
' Makro1 Makro
'
'
' Tastenkombination: Strg+b
'
For i = 59 To 78
SolverOk SetCell:="$B$" & i, MaxMinVal:=2, ValueOf:="0", ByChange:="$D$" & i & ":$F$" & i
SolverSolve Userfinish:=True
Next i
End Sub

 

Hattest doch recht hat funktioniert, leider kam nicht das Raus was ich haben wollte

Hat mein Makro Solver den die Nebenbedingungen enthalten?

Also eigentlich sollte es heißen Zielzeile B78 ; min. ; veränderebare Zellen D78:F78
und Nebenbedingungen z.B.:
A78 = G78
D78>=0
E78>=0
F78>=0
und D78+E78+F78=1

aber die sehe ich hier doch gar nicht oder?

 

Hab jetzt mal noch die Nebenbedingungen eingesetzt. Hat auch ganz gut geklappt, jedoch hat er mir bei einigen Werten ganz ganz kleine Minuswerte angezeigt bei D obwohl da ja steht das es >= 0 sein soll.


Sub Makro1()
'
' Makro1 Makro
' test
'
' Tastenkombination: Strg+a
'
For i = 59 To 78
SolverOk SetCell:="$B$" & i, MaxMinVal:=2, ValueOf:="0", ByChange:="$D$" & i & ":$F$" & i
SolverAdd CellRef:="$A$" & i, Relation:=2, FormulaText:="$H$" & i
SolverAdd CellRef:="$D$" & i, Relation:=3, FormulaText:=0
SolverAdd CellRef:="$E$" & i, Relation:=3, FormulaText:=0
SolverAdd CellRef:="$F$" & i, Relation:=3, FormulaText:=0
SolverAdd CellRef:="$G$" & i, Relation:=2, FormulaText:=1
SolverSolve
Next i

End Sub