Makro mit Solver nicht für jede Zelle
04.07.2007 17:13:00
Marjam
ich habe eine dringende Frage und zwar soll das u.a. Makro nicht jede nachfolgende Zelle optimieren, sondern nur jede neunte Zelle. Ich weiß leider überhaupt nicht, wie ich das, in dem nachstehenden Makro verändern kann und benötige dringend euren Rat.
Sub Gamma()
Dim lngR As Long
SolverOptions MaxTime:=100, _
Iterations:=100, _
Precision:=0.000001, _
AssumeLinear:=False, _
StepThru:=False, _
Estimates:=1, _
Derivatives:=1, _
SearchOption:=2, _
IntTolerance:=5, _
Scaling:=True, _
Convergence:=0.0001, _
AssumeNonNeg:=True
For lngR = 2 To 5000
SolverOk SetCell:="$BP$" & lngR, MaxMinVal:=1, ValueOf:="0", ByChange:="$E$" & lngR & ":$L$" _
& lngR
SolverSolve UserFinish:=True
Next
End Sub
Beste Grüße
Marjam