Solver-Funtion VBA
04.12.2008 14:21:11
Uwe
ich möchte gern mit der Solverfunktion einen Wert errechnen. In dem Feld "ValueOf" kann jedoch nur ein fester Wert angegeben werden. Ich möchte jedoch einen Bezug zu einer Zelle. Dies scheint aber wohl nicht zu funktionien.
folgendes Makro habe ich z.Zt.:
Sub Solvertest()
solverReset
SolverOptions precision:=0.001
SolverOK SetCell:="$D$46", MaxMinVal:=3, ValueOf:="5741", ByChange:="$D$50"
SolverSolve UserFinish:=True
SolverOptions precision:=0.001
SolverOK SetCell:="$D$54", MaxMinVal:=3, ValueOf:="5741", ByChange:="$D$57"
SolverSolve UserFinish:=True
End Sub
Da sich der Wert "5741" ändern kann, möchte ich gerne den Bezug auf Zelle :="$D$48"
Hat jemand für dieses Problem eine Lösung?
Gruß
Uwe
Anzeige