Solver-VBA Nebenbedingung funzt nicht

Einen schönen guten Tag!
Ich habe folgendes Problem:
Ich möchte ein Makro schreiben, welches auf die Solver-Funktion zurückgreift.

Nix aufregendes, will zwei Parameter eines mathematischen Modells an Messwerte angleichen, also gehts um zwei veränderliche Zellen(Zahlen) von denen eine aber zwischen 0 und 1 liegen soll.
Tja, größer Null ist auch kein Problem, aber irgendwie nimmt er meine Anweisung für kleiner 1 nicht an:
Im Lösungsvorschlag ist der Wert immer größer als eins (und dann steht da im Ergebnisfenster noch ganz frech:„Alle Nebenbedingungen wurden eingehalten“, das ist ja noch der Gipfel…)

mein Code soweit:

sub Ausführen()
SolverReset
SolverOk SetCell:="$M$40", MaxMinVal:=2, ByChange:="$E$3:blush:F$3"
SolverAdd CellRef:="$F$3", Relation:=3, FormulaText:=0
SolverAdd CellRef:="$F$3", Relation:=1, FormulaText:=1

SolverSolve userFinish:=False
end sub

Was auffällig ist :
Irgendwas scheint mit der Zeile nicht zu stimmen, die die Bedingung für F3 =0, das zusätzlich erwartete $F$3

Hallo Andreas,

Einen schönen guten Tag!
Ich habe folgendes Problem:
Ich möchte ein Makro schreiben, welches auf die
Solver-Funktion zurückgreift.

Der Code is OK und sollte tun.
Mehr kann man von aussen net sagen…

Gruß HW
Hans W. Hofmann

Wenn ich den Solver per Hand mit beiden Nebenbedingungen
laufen lasse, erhalte ich ein wunderschönes Ergebnis, mit
erfüllten Nebenbedingungen.

Hi Andreas,

vor Jahren habe ich mal den Solver benutzt um rauszufinden was das Ding eigentlich macht, irgendwie habe ich dazu in A1 geschrieben =B1+C1, in C1 eine 5 und dann da irgendwo eingegeben daß 7 rauskommen soll, dann lieferte mir der Solver die 2.

Okay, dadurch wurde mir bestätigt was ich glaubte zu wissen was der Solver so macht. Eine Code-Aufzeichnung dessen was ein Solver macht bzw. wie man ihn mit Vba steuert sah ich noch nie.

Deshalb kann ich im Code nichts entdecken was zu deinem Begleittext, >=0 oder

Grüezi Andreas

Ich möchte ein Makro schreiben, welches auf die
Solver-Funktion zurückgreift.

Nix aufregendes, will zwei Parameter eines mathematischen
Modells an Messwerte angleichen, also gehts um zwei
veränderliche Zellen(Zahlen) von denen eine aber zwischen 0
und 1 liegen soll.

Hat jemand eine Idee?

Du kannst das Solver-Modell auch in einem Bereich des Tabellenblattes speichern; es bleibt dann für spätere Wiederverwendung erhalten und Du kannst es von dort wieder laden (‚schlimmstenfalls‘ ja auch per VBA).

GGf. kannst Du die im Bereich gespeicherten Formeln ja dann auch von Hand oder nach deinen Vorgaben anpassen und den Bereich dann wieder als Modell laden.


Mit freundlichen Grüssen

Thomas Ramel

  • MVP für MS-Excel -

Hi Reinhard,

Und für Hans sicherlich nicht *einschätz* aber z.B. für mich,
was muß ich da manuell Step by Step machen damit es manuell
funktioniert?

Verstehe die Aussage nicht. Muss ich?
Zum SOlver
http://www.lemitec.de/load.php?name=News&file=articl…
Optimale Lösungen (Solver) Skript und Übungen

Gruß HW
Hans W. Hofmann

Hallo Hans,

Und für Hans sicherlich nicht *einschätz* aber z.B. für mich,
was muß ich da manuell Step by Step machen damit es manuell
funktioniert?

Verstehe die Aussage nicht. Muss ich?

Sie ist so gemeint, im Gegensatz zu mir kennst du dich mit der Benutzung des Solvers aus.

Zum SOlver
http://www.lemitec.de/load.php?name=News&file=articl…
Optimale Lösungen (Solver) Skript und Übungen

Danke für den Link, schaue ich nachher, muß jetzt weg.

Gruß
Reinhard