Spalten Schleife für Solver Makro

Sub EffFron() SolverOk SetCell:="$I$35", MaxMinVal:=2, ValueOf:="0", ByChange:="$I$38:$I$44" SolverAdd CellRef:="$I$33", Relation:=2, FormulaText:="$I$34" SolverOk SetCell:="$I$35", MaxMinVal:=2, ValueOf:="0", ByChange:="$I$38:$I$44" SolverAdd CellRef:="$I$63", Relation:=2, FormulaText:="1" SolverOk SetCell:="$I$35", MaxMinVal:=2, ValueOf:="0", ByChange:="$I$38:$I$44" SolverSolve (True) End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub SolverJumpCols() Const iColFirst As Long = 9 'in Spalte I anfangen (A=1, B=2 usw) Const iColJump As Long = 30 '30 Spalten hüfpfen Dim iCol As Long For iCol = iColFirst To (iColFirst + iColJump) SolverOk SetCell:=Cells(35, iCol).Address, MaxMinVal:=2, ValueOf:="0", ByChange:=Range( _ Cells(38, iCol), Cells(44, iCol)).Address SolverOk SetCell:=Cells(35, iCol).Address, MaxMinVal:=2, ValueOf:="0", ByChange:="Range( _ Cells(38, iCol), Cells(44, iCol)).Address" SolverAdd CellRef:=Cells(33, iCol).Address, Relation:=2, FormulaText:=Cells(34, iCol). _ Address SolverOk SetCell:=Cells(35, iCol).Address, MaxMinVal:=2, ValueOf:="0", ByChange:=Range( _ Cells(38, iCol), Cells(44, iCol)).Address SolverAdd CellRef:=Cells(63, iCol).Address, Relation:=2, FormulaText:="1" SolverOk SetCell:=Cells(35, iCol).Address, MaxMinVal:=2, ValueOf:="0", ByChange:=Range( _ Cells(38, iCol), Cells(44, iCol)).Address SolverSolve (True) Next iCol End Sub

Hi Klaus
Der Code ist super. Habe nur noch ein Problem: Die Bedingung, dass die Summe der Akitenindices (MSCI...) 100% sein soll, funktioniert noch nicht. An was könnte das liegen?
Die Datei ist leider zu gross zum Hochladen. Ich könnte dir diese aber auch schnell schicken.

Sub EffFron()
Const iColFirst As Long = 9 'in Spalte I anfangen (A=1, B=2 usw)
Const iColJump As Long = 30 '30 Spalten hüfpfen
Dim iCol As Long
SolverReset
For iCol = iColFirst To (iColFirst + iColJump)
SolverOk SetCell:=Cells(35, iCol).Address, MaxMinVal:=2, ValueOf:="0", ByChange:=Range( _
Cells(38, iCol), Cells(61, iCol)).Address
SolverAdd CellRef:=Cells(33, iCol).Address, Relation:=2, FormulaText:=Cells(34, iCol). _
Address
SolverOk SetCell:=Cells(35, iCol).Address, MaxMinVal:=2, ValueOf:="0", ByChange:=Range( _
Cells(38, iCol), Cells(61, iCol)).Address
SolverAdd CellRef:=Range(Cells(38, iCol), Cells(61, iCol)).Address, Relation:=3, FormulaText:=" _
0"
SolverAdd CellRef:=Cells(63, iCol).Address, Relation:=2, FormulaText:="1"
SolverSolve (True)
Next iCol
End Sub

Und noch eine zusätzliche Ergänzung. Wie kann ich einen Stopp setzen. Z.B. nach 30 Wiederholungen?
Herzlichen Dank für deine Hilfe. Du hast mich tausend Schritte weiter gebracht.

Beliebteste Forumthreads (12 Monate)

Spalten Schleife für Solver Makro

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread