Office: Excel-Solver mit VBA für viele Zeilen auf einmal

Liebes Forum,

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:

PHP:

         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


:)

 

Moin Toby

hatte grad bock drauf..

läuft mangels Mustermappe ungetestet

Code:

Grüße Jack

Rückmeldung und BEwertung wär super

 

Hallo Jack,

erstmal vielen, vielen lieben Dank für deine Mühe und entschuldige bitte die späte Antwort.

Leider funktioniert der Code nicht. Auch wenn ich die erste Zeile manuell vorgebe (Startzeile = 33) führt er den eigentlichen Solve-Code nicht aus sondern beendet in folgender Zeile immer den Sub:

Code:

und das obwohl DQ5 =20 ist, also definitv >1.

Weißt du woran das liegen könnte?

LG
Toby

PS: Ich bin leider neu hier im Forum...daher die blöde Frage: Wie kann ich deinen Beitrag bewerten/raten? :-)

 

Moin Tobi,

lade doch einfach mal eine Mustermappe hoch, und dann schau ich mir es an.
Wenn DQ5 nicht leer ist, kann es vielleicht ein TExt sein...?

Aber das ist alles nur gerate.. daher Mustermappe

Danke Grüße
Jack