Solver ValueOf
Peter
ich möchte gern das der Zielwert aus einer Zelle vom Solver übernommen wird. Der u.g. Code funktioniert nicht. Value Of übernimmt nicht den Wert der Zelle H38. Es liegt ein Fehler beim Kompileren vor.
Bitte um Hilfe, Peter
Sub ZielwertAnSolver()
Dim ziel As String
ziel = ActiveWorkbook.Range("H38").Value
SolverOk SetCell:="$G$38", MaxMinVal:=3, ValueOf:=ziel, ByChange:="$F$38"
SolverSolve
End Sub