VBA Solver nicht Looping

Ich versuche, den Solver für mehrere Spalten zu verwenden (die genaue Anzahl der vom Benutzer definierten Spalten). Nachdem ich mir die Fragen hier angesehen habe, kann ich immer noch nicht feststellen, was mit meinem Code nicht stimmt (ich bin ziemlich neu in VBA). Wenn ich es starte, funktioniert es im ersten Jahr einwandfrei, gilt jedoch nicht für die folgenden Jahre.

Dim wsFM_B3 As Worksheet
Set wsFM_B3 = ThisWorkbook.Worksheets("xxxx_B3")

Dim wsCharts As Worksheet
Set wsCharts = ThisWorkbook.Worksheets("Charts")

Dim j As Integer

For j = 0 To Range("CC_Reduction_Years").Value
    SolverReset
    SolverAdd CellRef:=wsFM_B3.Range("E_Start").Offset(0, j), Relation:=3, FormulaText:=wsCharts.Range("Min_E")
    SolverAdd CellRef:=wsFM_B3.Range("Bank_Start").Offset(0, j), Relation:=3, FormulaText:=wsFM_B3.Range("Cash_B3")
    SolverOk SetCell:=wsFM_B3.Range("PoY_Start").Offset(0, j).Address, MaxMinVal:=3, ValueOf:=0, ByChange:=wsCharts.Range("CC_Base_Start").Offset(0, j).Address, Engine _
        :=1, EngineDesc:="GRG Nonlinear"
    SolverSolve True
  Next j
End Sub

Hier ist was meinxxxx_B3 sheet sieht so aus:

Auf dem Blatt "Diagramme" befinden sich nur Zellen, die die Zielwerte für die erste Zeile, die Einschränkungen und die Anzahl der Jahre enthalten.

Antworten auf die Frage(0)

Ihre Antwort auf die Frage