Excel 2007-Solver will nicht aktualisieren

[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:
Code

:
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....

 

[AdoK]

Das vor wenigen Stunden eröffnete Thema unter https://www.computerbase.de/forum/threads/solver-aktualisiert-sich-nicht-automatik.1486110/ reichte nicht?