VBA + Schleife + Solver + Hilfe!!!
25.06.2014 17:33:45
Naja
ich würde gerne den unten stehenden Befehl für eine Range umformen. Anstatt wie unten beschrieben, soll dies nicht nur für die "Cell(21,2)" (gleich mit "B21) geschehen sondern für die ganze Range (B21:BI115).
Ausformuliert: Wenn in Zelle B21 eine 1 steht dann soll Solver diese Zelle als Binärvariabel deklariere. Andernfalls als 0.
Statt dies jetzt für jede Zelle zu programmieren, würde ich gerne die Range mit einem Befehl abdecken...Leider hab ich kein Plan wie...Meine VBA Kenntnisse sind miserabel:)
Public Function SolverMitVBA()
If ActiveCell.Cells(21, 2) = 1 Then
Solver.SolverAdd CellRef:="B21", Relation:=5, FormulaText:="binär"
ElseIf ActiveCell.Cells(21, 2) = 0 Then
Solver.SolverAdd CellRef:="B21", Relation:=2, FormulaText:="0"
End If
Beste Grüße