Ich brauche wiedermal Eure Hilfe. Ich muss im Excel Solver 2 später vielleicht auch 3 nicht zusammenhängende Bereiche für die Binärzahlen ( Entscheidungsvariablen) angeben. Z.B. Range("A1:C3,E1:G3,I1;K3") Zusätzlich sind diese Bereich noch dynamisch. Für den Einfachen Fall benutzte ich folgenden Code (er funktioniert )
SolverOptions MaxTime:=100, Iterations:=100, Precision:=0.000001, AssumeLinear _
:=False, StepThru:=False, Estimates:=1, Derivatives:=1, SearchOption:=1, _
IntTolerance:=5, Scaling:=False, Convergence:=0.0001, AssumeNonNeg:=True
Dim A, B As Long ' für das Aufspannen der Matrix für ( Variablen und Nebenbedingung)
A = Auftragszahl - 1 ' -1 da beim späteren aufaddieren die Ausgangszelle mit Addiert wird,_
'das macht die Matrix um 1größer als die sein soll
B = Auftragszahl - 1
SolverOk SetCell:=Range("B8"), MaxMinVal:=2, _
ByChange:=Range(Cells(10, 33), Cells(10 + A, 33 + A))
'Binäre Variable Matrix1
SolverAdd CellRef:=Range(Cells(10, 5), Cells(10 + A, 5 + A)), Relation:=5 '
'Binäre Variable Matrix2
SolverAdd CellRef:=Range(Cells(10, 33), Cells(10 + A, 33 + A)), Relation:=5
USW.
Leider kann ich den nicht auf mehrere Bereiche anpassen.
Mein Versuch:
ByChange:=Range("Cells(10, 5), Cells(10 + A, 5 + A):Cells(10, 33), Cells(10 + A, 33 + A)")
Vielleicht habt Ihr eine Idee.
Vielen Dank im voraus.