Solver verwendet falsche Zahlen

Hallo zusammen,
ich habe ein Problem. Ich habe ein Optimierungsproblem zu lösen und möchte den Solver nutzen. Soweit so gut. Wenn die Daten händisch über Daten Solver eintippe arbeitet der Solver problemlos.
Nun habe ich einen VBA Code geschrieben, da ich diverse Berechnungen durchführen möchte. Nun verändert der Code jedoch die Grenzwerte.
Ihr könnt dies folgend beobachten. Start mit das Makro das auf der Zelle J2 liegt. Dann erhaltet ihr die Fehlermeldung, dass der obere Grenzwert unterhalb des unteren liegt. Jetzt habe ich gesehen, dass für die Zellen K9 und K14 u. a. die Werte im Solver nach Ausführung des Codes nicht den Werten entsprechen, die ich in den jeweiligen Zellen hinterlegt habe.
Ich wäre super froh, wenn mir jemand sagen könnte, was ich falsch gemacht habe.
BG
Pat
https://www.herber.de/bbs/user/147892.xlsm

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Optimize() SolverReset SolverOptions Precision:=0.0001 SolverOK MaxMinVal:=1 'Max 1 / Min 2 / Target 3 SolverOK SetCell:=Range("L18") 'target SolverOK Engine:=1 '1 GRG Nonlinear / 2 Simplex LP / 3 EA SolverOK ByChange:=Range("K8:K17") 'Variable 'Weight 1 = / Integer / 5 Binary SolverAdd CellRef:=Range("K8"), relation:=1, FormulaText:="$Q$8" 'Equities SolverAdd CellRef:=Range("K8"), relation:=3, FormulaText:="$P$8" SolverAdd CellRef:=Range("K9"), relation:=1, FormulaText:="$Q$9" 'Govies SolverAdd CellRef:=Range("K9"), relation:=3, FormulaText:="$P$9" SolverAdd CellRef:=Range("K10"), relation:=1, FormulaText:="$Q$10" 'PE SolverAdd CellRef:=Range("K10"), relation:=3, FormulaText:="$P$10" SolverAdd CellRef:=Range("K11"), relation:=1, FormulaText:="$Q$11" 'RE SolverAdd CellRef:=Range("K11"), relation:=3, FormulaText:="$P$11" SolverAdd CellRef:=Range("K12"), relation:=1, FormulaText:="$Q$12" 'Liquid Alternatives SolverAdd CellRef:=Range("K12"), relation:=3, FormulaText:="$P$12" SolverAdd CellRef:=Range("K13"), relation:=1, FormulaText:="$Q$13" 'Commodities SolverAdd CellRef:=Range("K13"), relation:=3, FormulaText:="$P$13" SolverAdd CellRef:=Range("K14"), relation:=1, FormulaText:="$Q$14" 'IG SolverAdd CellRef:=Range("K14"), relation:=3, FormulaText:="$P$14" SolverAdd CellRef:=Range("K15"), relation:=1, FormulaText:="$Q$15" 'HY/PD&DL SolverAdd CellRef:=Range("K15"), relation:=3, FormulaText:="$P$15" SolverAdd CellRef:=Range("K16"), relation:=1, FormulaText:="$Q$16" 'Inflation Linker SolverAdd CellRef:=Range("K16"), relation:=3, FormulaText:="$P$16" SolverAdd CellRef:=Range("K17"), relation:=1, FormulaText:="$Q$17" 'Global Infra SolverAdd CellRef:=Range("K17"), relation:=3, FormulaText:="$P$17" 'Global Restr. SolverAdd CellRef:=Range("K33"), relation:=2, FormulaText:="$L$33" SolverAdd CellRef:=Range("K34"), relation:=1, FormulaText:="$L$34" 'SolverAdd CellRef:=Range("K35"), relation:=3, FormulaText:="$L$35" 'only Min Var Opti SolverAdd CellRef:=Range("K36"), relation:=1, FormulaText:="$L$36" SolverAdd CellRef:=Range("K37"), relation:=1, FormulaText:="$L$37" SolverAdd CellRef:=Range("K38"), relation:=1, FormulaText:="$L$38" SolverAdd CellRef:=Range("K41"), relation:=1, FormulaText:="$L$41" SolverSolve 'userfinish=true -> MC Simulation End Sub Peter

z.B. FormulaText:=0.12 -> Solver nimmt 12 FormulaText:="0.12" -> Solver nimmt 12 FormulaText:="=0.12" -> Solver nimmt 0,12 Für Dein Makro würde dies bedeuten: Statt FormulaText:=Range("Q8") -> FormulaText:= "=" & Range("Q8")

Hallo Peter,
ich hatte gestern den ganzen Tag rumprobiert, aber bei mir erfolgt immer die Meldung, ""Solver: Unerwarteter interner Fehler, oder der verfügbare Arbeitsspeicher ist ausgeschöpft.""
Das der Arbeitsspeicher ausgeschöpft ist, ist bestimmt nicht unmöglich, würde mich aber wundern. Mein Code habe ich nach deiner Nachricht folgend angepasst.


Sub Optimize()
SolverReset
SolverOptions Precision:=0.0001
SolverOK MaxMinVal:=1 'Max 1 / Min 2 / Target 3
SolverOK SetCell:=Range("L18") 'target
SolverOK Engine:=1 '1 GRG Nonlinear / 2 Simplex LP / 3 EA
SolverOK ByChange:=Range("L8:L17") 'Variable
'substitute  FormulaText:=Range("?") -> FormulaText:="="&Range("?")
'Weight 1 = / Integer / 5 Binary
SolverAdd CellRef:=Range("K8"), relation:=1, FormulaText:="=" & Range("Q8")   'Equities
SolverAdd CellRef:=Range("K8"), relation:=3, FormulaText:="=" & Range("Q8")
SolverAdd CellRef:=Range("K9"), relation:=1, FormulaText:="=" & Range("Q9") 'Govies
SolverAdd CellRef:=Range("K9"), relation:=3, FormulaText:="=" & Range("Q9")
SolverAdd CellRef:=Range("K10"), relation:=1, FormulaText:="=" & Range("Q10") 'PE
SolverAdd CellRef:=Range("K10"), relation:=3, FormulaText:="=" & Range("Q10")
SolverAdd CellRef:=Range("K11"), relation:=1, FormulaText:="=" & Range("Q11") 'RE
SolverAdd CellRef:=Range("K11"), relation:=3, FormulaText:="=" & Range("Q11")
SolverAdd CellRef:=Range("K12"), relation:=1, FormulaText:="=" & Range("Q12") 'Liquid Alternatives
SolverAdd CellRef:=Range("K12"), relation:=3, FormulaText:="=" & Range("Q12")
SolverAdd CellRef:=Range("K13"), relation:=1, FormulaText:="=" & Range("Q13") 'Commodities
SolverAdd CellRef:=Range("K13"), relation:=3, FormulaText:="=" & Range("Q13")
SolverAdd CellRef:=Range("K14"), relation:=1, FormulaText:="=" & Range("Q14") 'IG
SolverAdd CellRef:=Range("K14"), relation:=3, FormulaText:="=" & Range("Q14")
SolverAdd CellRef:=Range("K15"), relation:=1, FormulaText:="=" & Range("Q15") 'HY/PD&DL
SolverAdd CellRef:=Range("K15"), relation:=3, FormulaText:="=" & Range("Q15")
SolverAdd CellRef:=Range("K16"), relation:=1, FormulaText:="=" & Range("Q16") 'Inflation Linker
SolverAdd CellRef:=Range("K16"), relation:=3, FormulaText:="=" & Range("Q16")
SolverAdd CellRef:=Range("K17"), relation:=1, FormulaText:="=" & Range("Q17") 'Global Infra
SolverAdd CellRef:=Range("K17"), relation:=3, FormulaText:="=" & Range("Q17")
'Global Restr.
SolverAdd CellRef:=Range("K33"), relation:=2, FormulaText:="=" & Range("L33")
SolverAdd CellRef:=Range("K34"), relation:=1, FormulaText:="=" & Range("L34")
'SolverAdd CellRef:=Range("K35"), relation:=3, FormulaText:="=" &Range("L35") 'only Min Var Opti
SolverAdd CellRef:=Range("K36"), relation:=1, FormulaText:="=" & Range("L36")
SolverAdd CellRef:=Range("K37"), relation:=1, FormulaText:="=" & Range("L37")
SolverAdd CellRef:=Range("K38"), relation:=1, FormulaText:="=" & Range("L38")
SolverAdd CellRef:=Range("K41"), relation:=1, FormulaText:="=" & Range("L41")
SolverSolve
'userfinish=true -> MC Simulation
End Sub

Da alle Nebenbedingungen Dezimalzahlen sind, habe ich alle mit dem Zusatz "=" & versehen.
Läuft der Code so bei dir?
Beste Grüße

Beliebteste Forumthreads (12 Monate)

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread