I am trying to use the Solver function and have trouble to get the
constraints set up properly. Of the 4 constraints only 2 are used as I can
tell by the result as well as by looking at the Solver Parameter window in
which only constraints 2 and 4 are listed. Changing for example the sequence
didn't help.

Version: Excel 2002 SP3, VB 6.3

- Bernd


Sub Macro1()

' Reset - Clear all previous settings
SolverReset

' Precision 0.1%; Use quadratic extrapolation
SolverOptions precision:=0.001, estimates:=1

' Minimize value for 1st dimentsion
SolverOk SetCell:=Range("$M$21"), _
MaxMinVal:=2, _
ByChange:=Range("$B$21:$k$21")

' Constraint 1 - Upper limit for weights
SolverAdd cellRef:=Range("$B$21:$k$21"), _
relation:=1, _
formulaText:=1

' Constraint 2 - Lower limit for weights
SolverAdd cellRef:=Range("$B$21:$k$21"), _
relation:=3, _
formulaText:=0

' Constraint 3 - Sum of all weights equal 100%
SolverAdd cellRef:=Range("$a$21"), _
relation:=2, _
formulaText:=1

' Constraint 4 - Target value for 2nd dimension
SolverAdd cellRef:=Range("$L$21"), _
relation:=2, _
formulaText:=Range("$o$21")

SolverSolve Userfinish:=True

End Sub