SolverOk-Funktion

Definiert ein grundlegendes Solver-Modell. Entspricht dem Klicken auf Solver in der Gruppe Datenanalyse | und dem anschließenden Angeben von Optionen im Dialogfeld Solver-Parameter.

Hinweis

Das Solver-Add-In ist nicht standardmäßig 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".

SolverOk( SetCell, MaxMinVal, ValueOf, ByChange, Engine, EngineDesc)

SetCell Optionaler Variant -Wert. Bezieht sich auf eine einzelne Zelle des aktiven Arbeitsblatts. Entspricht dem Feld Zielzelle festlegen im Dialogfeld Solver-Parameter. MaxMinVal Optionaler Variant -Wert. Entspricht den Optionen Max, Min und Wert im Dialogfeld Solver-Parameter.

MaxMinVal	Steht für
1	Maximieren
2	Minimieren
3	Vergleichen mit einem bestimmten Wert

ValueOf Optional Variant. Wenn MaxMinVal 3 ist, müssen Sie den Wert angeben, mit dem die Zielzelle abgeglichen wird.

ByChange Optionaler Variant -Wert. Die Zelle oder der Zellbereich, der so geändert wird, dass Sie das gewünschte Ergebnis in der Zielzelle erhalten. Entspricht dem Feld Veränderbare Zellen im Dialogfeld Solver-Parameter.

Engine Optionaler Variant-Wert. Die Lösungsmethode, die zum Lösen des Problems verwendet werden soll: 2 für die Methode „Simplex-LP“, 1 für die Methode „GRG-Nichtlinear“ oder 3 für die Methode „EA (Evolutionärer Algorithmus)“. Entspricht der Dropdownliste Lösungsmethode auswählen im Dialogfeld Solver-Parameter.

EngineDesc Optionaler Variant -Wert. Ein alternatives Verfahren zum Angeben der Lösungsmethode, die zum Lösen des Problems verwendet werden soll, als Zeichenfolge: "Simplex LP", "GRG Nonlinear" oder "Evolutionary". Entspricht der Dropdownliste Lösungsmethode auswählen im Dialogfeld Solver-Parameter.

Beispiel

In diesem Beispiel werden die Solver-Funktionen verwendet, um den Bruttogewinn in einem geschäftlichen Problem zu maximieren. Die SolverOK-Funktion definiert ein Problem, indem die Argumente SetCell, MaxMinVal und ByChange angegeben werden.

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.