solver mit schleife
24.02.2020 19:42:24
Chris
meine Schleife wird nicht akzeptiert.. wo ist der Fehler?
Der Solver soll ausgeführt werden dann ändert sich ein WErt und dann soll der Solver wieder _ ausgeführt werden bis es eine lösung gibt.
Sub schleife()
Dim i As Integer
Dim j As Integer
Dim s As Integer
Dim Zahl As Double
For s = 1 To 100 Step 1
Range("d1").Value = Range("d1").Value + 1
Range("d2").Value = Range("d2").Value + 1
If Range("d1") = 100 Then Exit Sub
i = Range("d1").Value
j = Range("d2").Value
Zahl = Range("d1").Value
[e1] = Zahl
Cells(20, 2) = Zahl
Cells(20 + j, 2) = Zahl
SolverReset
SolverOk SetCell:="$q$34", MaxMinVal:=3, ValueOf:=Range("$Q$39").Value, ByChange:="d35"
SolverAdd CellRef:="$d$35", Relation:=4, FormulaText:="Ganzzahlig"
SolverAdd CellRef:="$d$35", Relation:=3, FormulaText:=10 'min
SolverAdd CellRef:="$d$35", Relation:=1, FormulaText:=84 'max
solverSolve
If solverSolve(False) Then
Next s
End If
End Sub
Anzeige