|
Hallo ihr Lieben,
ich benötige recht dringend Hilfe bei einem Problem - ich möchte den Solver automatisch über mehrere Zeilen laufen lassen ohne das immer selbst machen zu müssen (da Datenbasis zu groß).
Folgenden Code habe ich mir erarbeitet:
Sub Solver()
Dim lngI As Long
For lngI = 5 To 10
SolverOk MaxMinVal:=2
SolverOk SetCell:=Cells(254, lngI)
SolverOk Engine:=1
SolverOk ByChange:=Range(Cells(251, lngI), Cells(253, lngI))
SolverAdd CellRef:=Range(Cells(251, lngI), Cells(253, lngI)), Relation:=3, FormulaText:=Range("0")
SolverAdd CellRef:=Range(Cells(251, lngI), Cells(253, lngI)), Relation:=1, FormulaText:=Range("1")
SolverSolve userfinish:=True
Next lngI
End Sub
Allerdings verursachen die "SolverAdd" Befehle einen Laufzeitfehler, den ich selbst nicht lösen kann ... wenn ich diese Befehle heraus nehme und userfinish aud :=False setze kommt die Meldung:
Fehler im Modell: ob alle Zellen und Nebenbedingungen gültig sind.
Vielen Dank schon einmal an euch alle!
Viele Grüße
Dominik
|