Makro Schleife
08.09.2004 13:49:55
Matthias
So schaut es bis jetzt aus, und es funktioniert auch soweit. Nur für die Sache mit dem Ergebnis eintragen habe ich keine Lösung.
Sub Makro6()
' Makro6 Makro
' Makro am 08.09.2004 von _ aufgezeichnet
Dim x As Single
x = -0.3
Do While x < 0.8
Range("B2").Select
ActiveCell.FormulaR1C1 = x
Range("B3").Select
SolverOk SetCell:="$B$29", MaxMinVal:=1, ValueOf:="0", ByChange:="$B$16:$B$25"
SolverSolve userfinish:=True
SolverOk SetCell:="$B$29", MaxMinVal:=1, ValueOf:="0", ByChange:="$B$16:$B$25"
SolverSolve userfinish:=True
SolverOk SetCell:="$B$29", MaxMinVal:=1, ValueOf:="0", ByChange:="$B$16:$B$25"
SolverSolve userfinish:=True
SolverOk SetCell:="$B$29", MaxMinVal:=1, ValueOf:="0", ByChange:="$B$16:$B$25"
SolverSolve userfinish:=True
ActiveWindow.SmallScroll Down:=12
Range("C29:C30").Select
Selection.Copy
Range("d34").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=-24
x = x + 0.02
Loop
End Sub