SolverReset
SolverOk SetCell:=
"$Zielfeld"
, MaxMinVal:=2, ValueOf:=0, ByChange:= _
"$Spaltenbuchstabe$Spaltennummer:$Spaltenbuchstabe$Nummerspalte"
, Engine:=1, EngineDesc:=
"GRG Nonlinear"
SolverAdd CellRef:=
"$Spaltenbuchstabe$Spaltennummer"
, Relation:=2, FormulaText:=
"1"
SolverOk SetCell:=
"$Spaltenbuchstabe$Spaltennummer"
, MaxMinVal:=2, ValueOf:=0, ByChange:= _
"$Spaltenbuchstabe$Spaltennummer:$Spaltenbuchstabe$Spaltennummer"
, Engine:=1, EngineDesc:=
"GRG Nonlinear"
SolverOptions Assumenonneg:=
False
SolverOk SetCell:=
"$Spaltenbuchstabe$Spaltenbuchstabe"
, MaxMinVal:=2, ValueOf:=0, ByChange:= _
"$Spaltenbuchstabe$Spaltennummer:$CW$Spaltennummer"
, Engine:=1, EngineDesc:=
"GRG Nonlinear"
SolverSolve
True