Spalten Schleife für Solver Makro
16.05.2013 00:52:21
Wile
Bin gerade bei meiner Masterarbeit ein SolverMakro am generieren. Ich muss dabei eine Zahl (Varianz) mit gewissen Bedigungen minimieren. Das ist mir gelungen. Anstatt nun aber für jede Spalte ein neues Makro zu generieren, würde ich das gerne als Schleife lösen (von der erster Spalte (I) zur zweiten Spalte (J) hüpfen usw. - ca. 30 Spalten). Hier bin ich aber leider schon an meine VBA Grenzen gestossen.
--------------------------------
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
------------------------------
Herzlichen Dank für euer Hilfe.
Gruss Wile
Anzeige