Zunächst gehe ich davon aus, dass Sie VBA verwenden. Wenn dies nicht der Fall ist, ergibt dies keinen Sinn.
Ich empfehle, diesen Beitrag zu besprechen, in dem die Probleme bei der Verwendung von Solver in VBA behandelt werden.
Um Verweise zum Einrichten von Solver (z. B. SetCell: =) zu verwenden, habe ich dies gefunden, während die meisten anderen Methoden dies nicht tun.
Set SetRng = Sheets("Sheet2").Range("A1") SetAddress = Split(SetRng.Address(external:=True), "[")(0) & Split(SetRng.Address(external:=True), "]")(1) SolverOK SetCell:=SetAddress
Wobei SetAddress Dim als String ist.