Office: Makroprogrammierung -> Solver automatisieren

Hallo alle zusammen,

ich habe eine kleine Frage zum Programmieren eines Makros, mit dem sich die Zielwertsuche / der Solver automatisieren lässt.

Meine Tabelle sieht (vereinfach) so aus:





Ich habe nun schon ein Makro programmiert, mit dem ich den Solver eine (in diesem Fall die erste) Zeile lösen lassen kann.

Code:

Jetzt würde ich dieses Makro gerne so umschreiben, dass es die ganze Tabelle Zeile für Zeile auf diese Weise löst.

Ideal (aber nicht zwingend notwendig) wäre es dann noch, wenn der "Veränderbare Wert" nicht wirklich verändert werden würde, sondern die Lösung in die extra Spalte "Solver-Ergebnis" eingetragen werden würde.


Ich gehe mal davon aus, dass - zumindest ersteres - möglich ist, da ich aber ganz neu in der Makroprogrammierung bin (habe quasi gestern das erste mal davon gehört) hab ich leider absolut keine Idee wie..!

Über eure Hilfe würde ich mich wirklich sehr freuen!

Grüße,

Zapp

PS: Ich habe die Beispieltabelle zur Ansicht noch angehängt!

:)

 

Code:

diesen Code Einfügen

 

Code:

diesen Code Einfügen

 

Ich nehme an, der Code muss noch angepasst werden?

Hab ihn gerade mal eingefügt & ausgeführt und es wird weiterhin nur die erste Zeile berechnet..

Vielen Dank schon einmal für die Mühe! *Smilie

Grüße!

 

Dann stimmt was nicht beim Einfügen. Wohin hast Du es denn kopiert?
Erzeuge ein Modul und kopiere den Code dahinein. Dann änderst Du vorsichtshalber den Namen des alten Codes und weist dem Button das Neue Makro zu. Dann müsste es eigentlich funktionieren.

 

Also ich habe das Gefühl ich mache hier noch etwas grundlegend falsch..

Ich habe jetzt eine komplett neue Mappe erstellt, in die ich dann die Beispieltabelle kopiert habe.

Dann habe ich nach nach folgender Anleitung deinen Code eingefügt:


1. während Excel aktiv ist, ist die Tastenkombination Alt + F11 zu drücken, damit öffnet sich das Fenster der Entwicklungsumgebung für VBA

2. mit Tastenkombination Strg + R den Projekt-Explorer öffnen und aktivieren

3. dort die gewünschte Datei per Doppelklick markieren, sie ist dann blau unterlegt

4. zunächst Tastenkombination Alt + E und dann M drücken

5. nun ist in der rechten Fensterhälfte ein leeres Modul eingefügt worden, in dieses kann der Code eingefügt werden

6.im Projektexplorer wird dieses Modul unter der Datei auch angezeigt

7. speichern und Visual Basic mit Tastenkombination Alt + F4 schließen

8. das Makro bzw. die Funktion stehen nun in der Datei zur Verfügung

( Online - Excel Programmierung VBA Makro: Wie und wo fügt man ein Makro bzw. Code ein )


Wenn ich nun das Makro an eine Schaltfläche binde und diese anklicke passiert leider garnichts mehr..

Die einzige Veränderung die ich feststellen konnte ist, dass Exel die Berechnungsoptionen von Automatisch auf Manuell ändert.. warum auch immer..


Zur Ansicht:





Ansonten ist die Mappe im Anhang zu finden!


Liebe Grüße,

zapp

 

Hallo zapp4,
ich habe einmal das Szenario in der Doku dargestellt.
Bitte genau anschauen un dann später wieder melden.

 

Hey ASE,

Wirklich "Vielen Dank" für deine Mühen!
Leider ist das wohl nicht der Fehler, beides hatte ich bereits so eingestellt..
Funktioniert bei dir denn meine angehängte Beispieltabelle?

Grüße!

 

Nein das Beispiel funktioniert bei mir nicht.