SolverSave-Funktion

Speichert die Solver-Problemspezifikation im Arbeitsblatt.

Hinweis Das Solver-Add-In ist standardmäßig nicht aktiviert. Bevor Sie diese Funktion verwenden können, muss das Solver-Add-In aktiviert und installiert werden. Informationen hierzu finden Sie unter Verwenden der Solver VBA-Funktionen. Nach der Installation des Solver-Add-Ins müssen Sie einen Verweis auf das Solver-Add-In erstellen. Klicken Sie im Visual Basic-Editor mit einem aktiven Modul auf Verweise im Menü Extras, und wählen Sie dann Solver unter Verfügbare Verweise aus. Wenn Solver nicht unter Verfügbare Verweise angezeigt wird, klicken Sie auf Durchsuchen, und öffnen Sie dann "Solver.xlam" im Unterordner "\Programme\Microsoft Office\Office14\Library\SOLVER".

SolverSave( SaveArea)

SaveArea Erforderlicher Variant-Wert. Der Zellbereich, in dem das Solver-Modell gespeichert werden soll. Wenn es sich um einen Einzelzellenbereich handelt, verwendet Solver in einer Spalte, die mit der angegebenen Zelle beginnt, so viele Zellen, wie zum Speichern des Modells erforderlich sind. Wenn es sich um einen Bereich mit mehreren Zellen handelt, verwendet Solver nur Zellen innerhalb dieses Bereichs, auch wenn das Modell nicht vollständig gespeichert werden kann. Der durch das Argument SaveArea dargestellte Bereich kann sich auf jedem Arbeitsblatt befinden, aber Sie müssen das Arbeitsblatt angeben, wenn es sich nicht um das aktive Blatt handelt. Beispielsweise speichert das Modell auf Sheet2, SolverSave("Sheet2!A1:A3") auch wenn Sheet2 nicht das aktive Blatt ist.

Beispiel

In diesem Beispiel werden die Solver-Funktionen verwendet, um den Bruttogewinn in einem geschäftlichen Problem zu maximieren. Mit der Funktion SolverSave wird der aktuelle Vorgang in einem Bereich des aktiven Arbeitsblattes gespeichert.

Worksheets("Sheet1").Activate 
SolverReset 
SolverOptions Precision:=0.001 
SolverOK SetCell:=Range("TotalProfit"), _ 
 MaxMinVal:=1, _ 
 ByChange:=Range("C4:E6") 
SolverAdd CellRef:=Range("F4:F6"), _ 
 Relation:=1, _ 
 FormulaText:=100 
SolverAdd CellRef:=Range("C4:E6"), _ 
 Relation:=3, _ 
 FormulaText:=0 
SolverAdd CellRef:=Range("C4:E6"), _ 
 Relation:=4 
SolverSolve UserFinish:=False 
SolverSave SaveArea:=Range("A33")

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.