01.08.2016, 07:26
Hallo zusammen,
nachdem ich nun meinen Solver perfektioniert habe, würde ich diesen gerne über einen Button starten.
Dazu würde ich gerne diesen bestehenden Solver, mit seinen ganzen "Constraints", über ein Makro starte.
Im Netz finde ich nun leider nur Hilfe, um einen Solver im VBA zu programmieren.
https://msdn.microsoft.com/de-de/library...96600.aspx
Ich möchte jedoch den Solver nicht komplett neu im VBA schreiben, sondern lediglich meinen bestehenden aufrufen.
Wenn ich es über ein Makro aufzeichne, startet mein Solver zwar, jedoch solved er nicht wirklich.
Er sagt zwar das gesolved wurde und frägt auch ob ich die neuen Variablen behalten möchte, jedoch hat sich gar nichts verändert.
Es sieht so aus als ob er meine Constraints nicht berücksichtigt.
So sieht der, durch Makro aufzeichnen, erstellte VBA code aus.
Vielen Dank für eure Hilfe
nachdem ich nun meinen Solver perfektioniert habe, würde ich diesen gerne über einen Button starten.
Dazu würde ich gerne diesen bestehenden Solver, mit seinen ganzen "Constraints", über ein Makro starte.
Im Netz finde ich nun leider nur Hilfe, um einen Solver im VBA zu programmieren.
https://msdn.microsoft.com/de-de/library...96600.aspx
Ich möchte jedoch den Solver nicht komplett neu im VBA schreiben, sondern lediglich meinen bestehenden aufrufen.
Wenn ich es über ein Makro aufzeichne, startet mein Solver zwar, jedoch solved er nicht wirklich.
Er sagt zwar das gesolved wurde und frägt auch ob ich die neuen Variablen behalten möchte, jedoch hat sich gar nichts verändert.
Es sieht so aus als ob er meine Constraints nicht berücksichtigt.
So sieht der, durch Makro aufzeichnen, erstellte VBA code aus.
Code:
Sub Solver()
'
' Solver Makro
'
'
SolverOk SetCell:="$I$8", MaxMinVal:=2, ValueOf:=0, ByChange:= _
"$D$2,$D$3,$D$5,$D$6", Engine:=1, EngineDesc:="GRG Nonlinear"
SolverOk SetCell:="$I$8", MaxMinVal:=2, ValueOf:=0, ByChange:= _
"$D$2,$D$3,$D$5,$D$6", Engine:=1, EngineDesc:="GRG Nonlinear"
SolverSolve
End Sub