Solver aktualisiert sich nicht Automatik

[araj]

Hallo zusammen,

ich habe folgendes Problem:
Ich möchte, dass der Solver automatisch ausgelöst wird, wenn sich bestimmt Zellen ändern. Dazu habe ich folgendes Makro gebaut:

Private Sub Worksheet_Change(ByVal Target As Range) 

  If Not Intersect(Target, Cells(108, 2), Cells(148, 2)) Is Nothing Then 
    
    SOLVERReset 
    SolverOk SetCell:="$B$149", MaxMinVal:=3, ValueOf:="0", ByChange:="$B$148" 
    SolverSolve userFinish:=True 
    
    SOLVERReset 
    SolverOk SetCell:="$B$152", MaxMinVal:=3, ValueOf:="0", ByChange:="$B$151" 
    SolverSolve userFinish:=True 
    
  End If 
End Sub

Leider werden einige der beobachteten Zellen über Formeln (mit Variablen aus anderen Arbeitsblättern) geändert und genau in diesen Fällen aktualisiert sich der Solver nicht. Wenn ich die Zellen manuell ändere, startet auch der Solver....

Was kann ich tun?

Ergänzung (18. Juni 2015)

Kann mir niemand Helfen!!!!!!