SolverAdd-Funktion

Fügt dem aktuellen Problem eine Nebenbedingung hinzu. Entspricht dem Klicken auf Solver in der Gruppe Datenanalyse | und dann im Dialogfeld Solver-Parameter auf Hinzufügen.

Hinweis Das Solver-Add-In ist standardmäßig nicht aktiviert. Before you can use this function, the Solver add-in must be enabled and installed. 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".

SolverAdd( CellRef, Relation, FormulaText)

CellRef Erforderlicher Variant -Wert. Ein Bezug auf eine Zelle oder einen Zellbereich, der die linke Seite der Nebenbedingung bildet. Relation Erforderliche ganze Zahl. Die arithmetische Beziehung zwischen der linken und rechten Seite der Nebenbedingung. Wenn Sie 4, 5 oder 6 auswählen, muss CellRef auf Entscheidungsvariablenzellen verweisen, und FormulaText sollte nicht angegeben werden.

Relation	Arithmetische Beziehung
1	<=
2	=
3	>=
4	Zellen, auf die von CellRef verwiesen wird, müssen endgültige Werte aufweisen, die ganze Zahlen sind.
5	Zellen, auf die von CellRef verwiesen wird, müssen den endgültigen Wert 0 (null) oder 1 aufweisen.
6	Zellen, auf die von CellRef verwiesen wird, müssen alle unterschiedlichen endgültigen Werte und ganze Zahlen aufweisen.

FormulaText Optionaler Variant -Wert. Die rechte Seite der Nebenbedingung.

HinwBemerkungeneise

Nachdem Einschränkungen hinzugefügt wurden, können Sie sie mit den Funktionen SolverChange und SolverDelete bearbeiten.

Beispiel

In diesem Beispiel werden die Solver-Funktionen verwendet, um den Gesamtgewinn in einer Geschäftsaufgabe zu maximieren. Die SolverAdd-Funktion wird eingesetzt, um dem aktuellen Problem drei Nebenbedingungen hinzuzufügen.

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.