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.