SolverGet-Funktion

Gibt Informationen über die aktuellen Einstellungen für Solver zurück. Die Einstellungen werden in den Dialogfeldern Solver-Parameter und Optionen festgelegt.

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".

SolverGet(TypeNum, SheetName)

TypeNum Erforderliche Ganze Zahl. Eine Zahl, die den gewünschten Informationstyp angibt. Die folgenden Einstellungen werden im Dialogfeld Solver-Parameter angegeben.

TypeNum	gibt zurück
1	Der Verweis im Feld Zielzelle festlegen oder der #N/A-Fehlerwert, wenn Solver nicht auf dem aktiven Blatt verwendet wurde.
2	Eine Zahl, die der Option Gleich entspricht: 1 steht für Max, 2 für Min und 3 für Value Of.
3	Den Wert im Feld Wert.
4	Den Bezug (gegebenenfalls als Mehrfachbezug) im Feld Veränderbare Zellen.
5	Die Anzahl der Nebenbedingungen.
6	Eine Matrix der linken Seiten der Nebenbedingungen in Form von Text.
7	Ein Zahlenarray, das den Beziehungen zwischen der linken und der rechten Seite der Einschränkungen entspricht: 1 steht für <=, 2 für =, 3 für >=, 4 für int und 5 für bin.
8	Eine Matrix der rechten Seiten der Nebenbedingungen in Form von Text.
13	True, wenn die Methode Simple LP Solving ausgewählt ist, False, wenn eine andere Lösungsmethode ausgewählt ist.
20	True , wenn das Kontrollkästchen Nicht eingeschränkte Variablen nicht negativ machen aktiviert ist; False , wenn es gelöscht wird.

Die folgenden Einstellungen werden im Dialogfeld Optionen vorgenommen.

TypeNum	gibt zurück
9	Die Option Max. Zeit (Sekunden) (Registerkarte Alle Methoden).
10	Die Option Iterationen (Registerkarte Alle Methoden).
11	Die Option Einschränkungsgenauigkeit (Registerkarte Alle Methoden).
12	Die Option Integer Optimality (%) (Registerkarte Alle Methoden).
14	True, falls das Kontrollkästchen Iterationsergebnisse anzeigen aktiviert ist; False, falls es deaktiviert ist.
15	True , wenn das Kontrollkästchen Automatische Skalierung verwenden aktiviert ist. False , wenn es deaktiviert ist (Registerkarte Alle Methoden).
16	Eine Zahl, die der Art der Schätzungen entspricht: 1 steht für Tangente, 2 für Quadratisch.
17	Eine Zahl, die der Option Derivate auf der Registerkarte GRG Nonlinear entspricht: 1 steht für Vorwärts und 2 für Zentral (GRG Nonlinear Tab).
18	Eine Zahl, die der Art der Suche entspricht: 1 steht für Newton, 2 für Gradient.
19	Die Konvergenztoleranz (GRG Nonlinear tab and Evolutionary tab).
21	Die Option Population Size (GRG Nonlinear tab and Evolutionary tab).
22	Die Option Random Seed (GRG Nonlinear tab and Evolutionary tab).
23	True , wenn das Kontrollkästchen Multistart verwenden aktiviert ist. False , wenn es gelöscht ist (GRG Nichtlinear registerkarte).
24	True , wenn das Kontrollkästchen Begrenzungen für Variablen erforderlich aktiviert ist. False , wenn es deaktiviert ist (Registerkarte GRG Nonlinear und Evolutionary tab).
25	Die Option Mutationsrate (Registerkarte Evolution).
26	Die Option Max Subproblems (Registerkarte Alle Methoden).
27	Die Option Max Durchführbare Lösungen (Registerkarte Alle Methoden).
28	Die Option Ganzzahleinschränkungen ignorieren (Registerkarte Alle Methoden).
29	Die Option Maximale Zeit ohne Verbesserung (Registerkarte Evolution).

SheetName Optionaler Variant-Wert. Der Name des Blatts, das das Solver-Modell enthält, für das Sie Informationen benötigen. Wenn SheetName nicht angegeben wird, wird davon ausgegangen, dass es sich bei diesem Blatt um das aktive Blatt handelt.

Beispiel

In diesem Beispiel wird eine Meldung angezeigt, wenn Sie Solver nicht in Sheet1 verwendet haben.

Worksheets("Sheet1").Activate 
state = SolverGet(TypeNum:=1) 
If IsError(State) Then 
 MsgBox "You have not used Solver on the active sheet" 
End If

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.