Hallo,
die unten stehende Prozedur ist sehr langsam. Leider fehlen mir "noch" die Kenntnisse diesen zu optimieren. Kann mir da jemand weiterhelfen z.B. durch den Einsatz von arrays?
Was passiert eigentlich:
Es wird in jeder Zeile (Range:B20:BI114) geschaut ob in diesem Feld eine 1 oder "" (nix) steht. Steht eine 1 dann soll der Excel Solver diese als Binärvariable aufnehmen. Bei ""(nix) soll diese Zelle als 0 aufgenommen werden.
Sub Solver_Aufsezten_Starten()
For Each cl In Range("B20:BI114")
If cl.Value = 1 Then Solver.SolverAdd CellRef:=cl.Address(0, 0), Relation:=5, FormulaText:="binär"
If cl.Value = "" Then Solver.SolverAdd CellRef:=cl.Address(0, 0), Relation:=2, FormulaText:="0"
Next cl
End Sub
Beste Grüße Hope
|