Solver Schleife
16.07.2015 20:19:20
Andrej
Ich habe versucht eine Solver Schleife bei VBA zu kreieren
Sub Makro1()
Dim rngzelle As Range
For Each rngzelle In Range("BC29:BC" & Range("BC29").End(xlDown).Row)
SolverAdd CellRef:="$BC$" & rngzelle.Row, Relation:=3, FormulaText:="AO"
SolverOk SetCell:=rngzelle.Address, _
MaxMinVal:=1, _
ValueOf:=1393429979, _
ByChange:="$BJ$" & rngzelle.Row
SolverSolve True
Next rngzelle
End Sub
Es soll den Wert in Spalte BJ anpassen, um den Wert in Spalte BC zu maximieren; mit der Bedingung, dass Zeile aus Spalte BC immer Fehler wegen Kompilierung:
Sub oder FUnktion nicht definiert wird angezeigt.
Ich freue mich über jede Hilfe.
Danke vorab!
Thank you in advance