Solver VBA Makro

[Smily1981]

Hallo,


Ich habe mir ein kleines Solver Makro in VBA gebastelt funktioniert soweit wie ich will, jedoch möchte ich das Fenster wo man die Solverlösung übernimmt und mit OK quittieren muss nicht haben. Irgendwie bekomm ich die Zeile nicht hin mit der ich das Ergebnis automatisch übernehme:

Hier der Code:

Private Sub solver()

'
' solver Makro
'
'
    SolverOk SetCell:="$F$19", MaxMinVal:=3, ValueOf:=39.9, ByChange:="$D$17", _
        Engine:=1, EngineDesc:="GRG Nonlinear"
    SolverOk SetCell:="$F$19", MaxMinVal:=3, ValueOf:=39.9, ByChange:="$D$17", _
        Engine:=1, EngineDesc:="GRG Nonlinear"
   
SolverOk UserFinish:=true ????


End Sub

Wäre toll wenn mir jemand helfen könnte


Lg,
Karl