2 Solver in VBA
19.05.2005 08:55:44
Wave
ich möchte gerne 2 iterationen in vba programmieren....das hab ich mit dem solver getan aber es läuft nur einer?
Anbei mein programm
für hilfe wäre ich sehr dankbar
grüsse wave
Public
Sub CommandButton1_Click()
s = 0.885
e = 3.01
istep = 0
For v = s To e Step 0.125
istep = istep + 1
Worksheets("Berechnung").Cells(32, 2).Value = v
Call callsolver2a
Call callsolver2b
Worksheets("1 Schicht").Cells(15 + istep, 2).Value = Worksheets("Berechnung").Range("B189").Value
Worksheets("1 Schicht").Cells(15 + istep, 3).Value = Worksheets("Berechnung").Range("B227").Value
Worksheets("1 Schicht").Cells(15 + istep, 4).Value = Worksheets("Berechnung").Range("B253").Value
Worksheets("1 Schicht").Cells(15 + istep, 5).Value = Worksheets("Berechnung").Range("B279").Value
Worksheets("1 Schicht").Cells(15 + istep, 6).Value = Worksheets("Berechnung").Range("B233").Value
Next v
End Sub
Public
Sub callsolver2a()
SolverReset
SolverOk SetCell:="$B$83", MaxMinVal:=3, ValueOf:="0.001", ByChange:="$B$76"
SolverDelete CellRef:="$B$76", Relation:=1, FormulaText:="2"
SolverAdd CellRef:="$B$76", Relation:=1, FormulaText:="2"
SolverDelete CellRef:="$B$76", Relation:=3, FormulaText:="0,000001"
SolverAdd CellRef:="$B$76", Relation:=3, FormulaText:="0,000001"
SolverOptions StepThru:=False
SolverSolve UserFinish:=True
SolverFinish KeepFinal:=1
SolverReset
End Sub
Public
Sub callsolver2b()
SolverReset
SolverOk SetCell:="$B$122", MaxMinVal:=3, ValueOf:="0.001", ByChange:="$B$112"
SolverDelete CellRef:="$B$112", Relation:=1, FormulaText:="3,5"
SolverAdd CellRef:="$B$112", Relation:=1, FormulaText:="3,5"
SolverDelete CellRef:="$B$112", Relation:=3, FormulaText:="2,000001"
SolverAdd CellRef:="$B$112", Relation:=3, FormulaText:="2,000001"
SolverOptions StepThru:=False
SolverSolve UserFinish:=True
SolverFinish KeepFinal:=1
SolverReset
End Sub
Anzeige