AW: Solver dynamisch automatisieren
02.07.2020 15:22:29
LosWochitos1
https://www.herber.de/bbs/user/138712.xlsx
Vielen Dank für deine schnelle Antwort Martin!
nachdem ich ein paar Anpassungen vorgenommen habe, bleibe ich immer beim selben Problem hängen: Wird der Solver durchgeführt, erscheint die Fehlermeldung, dass Bedingungen falsch seien.
Ich habe ein mal eine Beispieldatei angehangen.
Der dazugehörige Code:
Sub Solver()
' Solver Makro
Dim i As Long
Dim Zeilenzahl As Integer
Range("$A$3").Select
Zeilenzahl = Selection.CurrentRegion.Rows.Count
Dim s As String
For i = 2 To Zeilenzahl
s = CStr(Zeilenzahl)
SolverReset
SolverOk SetCell:="$S$" & s, MaxMinVal:=2, ValueOf:=0, ByChange:="$F$:$H$" & s, _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverAdd CellRef:="$I$" & s, Relation:=3, FormulaText:="0"
SolverAdd CellRef:="$J$" & s, Relation:=3, FormulaText:="0"
SolverAdd CellRef:="$K$" & s, Relation:=3, FormulaText:="0"
SolverAdd CellRef:="$O$" & s, Relation:=3, FormulaText:="$B$" & s
SolverAdd CellRef:="$P$" & s, Relation:=3, FormulaText:="0"
SolverAdd CellRef:="$Q$" & s, Relation:=3, FormulaText:="0"
SolverAdd CellRef:="$R$" & s, Relation:=3, FormulaText:="0"
SolverSolve
Next i
End Sub