Hallo ihr Lieben, 

ich benötige recht dringend Hilfe bei einem Problem - ich möchte den Solver automatisch über mehrere Zeilen laufen lassen ohne das immer selbst machen zu müssen (da Datenbasis zu groß). 

Folgenden Code habe ich mir erarbeitet: 

Sub Solver()

    Dim lngI As Long
    For lngI = 5 To 10
    
    SolverOk MaxMinVal:=2
    SolverOk SetCell:=Cells(254, lngI)
        
    SolverOk Engine:=1
    SolverOk ByChange:=Range(Cells(251, lngI), Cells(253, lngI))
            
    SolverAdd CellRef:=Range(Cells(251, lngI), Cells(253, lngI)), Relation:=3, FormulaText:=Range("0")
    SolverAdd CellRef:=Range(Cells(251, lngI), Cells(253, lngI)), Relation:=1, FormulaText:=Range("1")
   
    SolverSolve userfinish:=True

    Next lngI

End Sub

Allerdings verursachen die "SolverAdd" Befehle einen Laufzeitfehler, den ich selbst nicht lösen kann ... wenn ich diese Befehle heraus nehme und userfinish aud :=False setze kommt die Meldung: 

Fehler im Modell: ob alle Zellen und Nebenbedingungen gültig sind. 

Vielen Dank schon einmal an euch alle! 

Viele Grüße

Dominik