Silver-Schleife
26.08.2019 09:18:51
Oliver
ich brauche eine Schleife für den Excel Solver um in etwa 4000 Werte lösen zu können:
Mein erster Ansatz ist eine Modifikation aus dem Makro-Recorder nachdem ich den Solver für eine _ Zeile angewendet habe:
Sub Makro1()
' Makro1 Makro
Dim i As Integer
For i = 2 To 10
SolverOk SetCell:="$T$" & i, MaxMinVal:=3, ValueOf:=0, ByChange:="$S$" & i, Engine:=1 _
, EngineDesc:="GRG-Nichtlinear"
SolverSolve
Next i
End Sub
Leider lässt sich dieser Ansatz nicht ausführen. Bekomme die Meldung "Fehler beim Kompilieren. Sub oder Funktion nicht definiert"
Ich würde um eure Hilfe bitten die Fehler nach und nach zu korrigieren. Hier ist eine
Beispieldatei in der ich diese Solver-Schleife gerne anwenden würde:
https://www.herber.de/bbs/user/131615.xlsm _
a>
Beste Grüße