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