Office: Solver starten

Hallo zusammen,

ich habe eine generelle Frage zu VBA und Active-X Elementen sowie eine Frage zum starten des Solver per VBA.

Ich habe eine recht umfangreiche Tabelle mit einer "Startseite" auf der verschiedene Daten für die folgenden Berechnungen eingetragen werden sollen. Es sind jedoch nicht für jeden Fall alle Daten notwendig. Deswegen würde ich gerne eine Art Dropdown erstellen sowie einen Button einfügen, nach dessen Betätigung alle Zellen ausgeblendet werden, welche für den im Dropdown Menu gewählten Fall nicht nötig sind. So bleibt die Eingangstabelle übersichtlicher. Ich habe durchaus Erfahrung im Programmieren und habe mich auch in die Active-X Elemente bereits ein wenig eingelesen. Könnt ihr mir dennoch ein paar Tipps geben wie ich mich effektiv in die Materie einlesen kann?

Meinte zweite Fragen dreht sich um den Solver um eine Optimierungsaufgabe zu lösen. Ich habe im Internet nicht gefunden wie ich diesen "manuell" starten kann. Demnach gehe ich davon aus, dass dies nur über VBA möglich ist. Da ich in der Starttabelle sowieso einen Button einfügen möchte könnte ich im Zuge dessen auch gleich den Solver starten und die Berechnung durchführen lassen. Könnt ihr mir sagen wie ich das mache?

Vielen Dank, liebe Grüße und ein schönes Wochenende!

Erich

:)

 

Hallo
Schaue mal da rein:
http://www.ms-office-forum.net/forum...d.php?t=314963

Da wird:
Code:

verwendet für den Solver VBA Start.

Gruss,

Tinker Bell

 

Hallo Tinker Bell,

danke für deine Antwort. Habe ich anscheinend übersehen.

Habe mich mal ein wenig in den Code hineingedacht und ihn umgesetzt. Ich habe den Solver auch manuell für die Entsprechende Zelle angepasst, dann funktioniert auch das Makro. Ich habe aber z.B. die Nebenbedingung im Makro nicht integriert und der Solver rechnet trotzdem richtig. Könnt ihr mir erklären wieso?

Andersherum kann ich Nebenbedingungen nicht im Makro mit einpflegen, bzw. er beachtet sie nicht. Anbei mal die Beispieldatei wie ich es gemacht habe.

Könnt ihr mir des Weiteren erklären wie ich ein ActiveX Steuerelement anstelle des unschönen SmartArt einfügen kann? Ich habe bereits eine Userform angelegt, weiß aber nicht wie ich diese in die Exceltabelle bekomme?

Vielen Dank und liebe Grüße

Erich

 

Hallo Eric
Der Solver setzt sich nicht von selbst zurück.
Das erklärt weswegen deine Berechnung trotz allem noch stimmte.

Pass den Code wie folgt an:
Code:

Nun wirkt sich auch die Nebenbedingung auf deine Berechnung aus.
Deine erstellte UserForm konnte ich in deiner Mappe nicht finden.
Wie möchtest du diese den ansprechen? Soll sie beim Mappen öffnen angezeigt werden?

Gruss,

Tinker Bell

 

Hallo Tinkerbell,

einmal mehr Danke für deine Antwort *Smilie

Habe den Code aus deinem letzten Post einfach übernommen und die "manuell" eingegebene Nebenbedingung aus dem Solver entfernt. Anscheinend scheint er die per VBA festgelegene Nebenbedingung irgendwie doch nicht zu berücksichtigen oder sehe ich den Wald vor lauter Bäumen nicht?

Habe nun mal eine Userform eingefügt. Hätte diesen Button gerne mit auf dem Tabellenblatt. Also ja, er soll beim Aufrufen des Tabellenblattes erstellt werden.
Habe leider nichts passendes dazu gefunden.

Noch einen schönen Sonntag Abend!

LG Erich!

 

Hallo Erich
Der Solver wird vor dem Start im VBA zurückgesetzt.
Und zwar mit folgendem Befehl:
Code:

Die Nebenbedingung kannst du in folgender Codezeile definieren:
Code:

Veränderst du die Zahl zwischen den Anführungszeichen wirkt sich dass auf dein Resultat aus.

Gruss,

Tinker Bell