Excel-Solver mit VBA für mehrere Zeilen ausführen
31.07.2019 11:06:42
Toby
ich stehe leider - als ziemlicher VBA-Neuling - vor einem großen Problem. ich würde gerne den Solver innerhalb einer Excel-Tabelle mehrfach anwenden.
Genauer gesagt stehen in meinem Beispiel die zu verändernen Variablenzellen in den Spalten CX,CZ,DB und DD, die zu minimierende Zielzelle steht neben dran in der Spalte DG. Zudem gibt es noch einige Nebenbedingungen. Für die in Zeile 93 stehenden Werte sieht das Solver-Makro wie folgt aus:
Sub Solver_test()
SolverOk SetCell:="$DG$93", MaxMinVal:=2, ValueOf:=0, ByChange:= _
"$CX$93,$CZ$93,$DB$93,$DD$93", Engine:=1, EngineDesc:="GRG Nonlinear"
SolverSolve
End Sub
Nun zum eigentlichen Problem: Die Zeilen in welchen die jeweils zu lösenden Probleme stehen sind nicht statisch sondern variabel. Die Spalten sind hingegen fix (CX,CZ,DB,DD,DG). So soll bei der derzeitigen Ausgestaltung der Paramenter für die Tabelle der Solver für die Zeilen 33,53,73,93, ... (immer +20) ausgeführt werden. Der Zeilenabstand von 20 ergibt sich aus einer Vorgabe die ich ihn Zelle DQ5 (Zellwert = 20) tätige. Diese Vorgabe soll aber verändert werden können. Nun bin ich verzweifelt auf der Suche nach einer Möglichkeit, den Solver via Makro mit obiger Logik und Nebenbedingungen für sämtliche in der Tabelle befindlichen Zeilen, bei denen für die Spalten CX,CZ,DB & DD etc Werte bestehen, durchlaufen zu lassen (wohl wissend um die Dauer, da die Tabelle momentan bis zu Zeile 1300 geht und ständig verlängert wird).
Hättet ihr mir hier irgendwelche Tips/Hilfestellungen? Vielen lieben Dank euch vorab dafür!!! :-)
LG
Toby