Office: For Schleife Excel Solver

Hallo,

ich habe folgendes Problem, dass ich gerne mit Excel und VBA lösen möchte.

Meine Excel DAtei besteht aus insgesamt 30000 Zeilen. Nun möchte ich in jeder Zeilen mit Hilfe des Solvers einen Wert innerhalb der Zeile optimieren. Das heiß ich müsste 30000 mal den Solver starten.

Deshalb habe ich ein Makro mit einer FOR Schleife aufgezeichnet, dass aber noch nicht funktioniert:

---------------------------------------------------

Sub Makro1()
'
' Makro1 Makro
' Makro am 15.10.2008 von OS aufgezeichnet
'

'
For i = 1 To 30000
SolverOk SetCell:="$AD$1", MaxMinVal:=1, ValueOf:="0", ByChange:="$J$1"
SolverSolve
Next i
End Sub

------------------------------------------------------

Leider weiß ich nicht genau, wie ich die For Schleife einbinden, soll da dies mein erster Versuch mit Makros ist.

Die For Schleife soll aber von 1 bis 30000 laufen. Also von der 1. bis zur letzten Zeile, wobei die Spalte "$AD$1" und "$J$1" immer um 1 erhöht werden sollen. Leider weiß ich nicht, wie das ausehen soll.

Ich würde mich über Hilfe freuen.

Viele Grüße

:)

 

Moin, soet,

technisch gesehen sollte es so aussehen (Code ist ungetestet):

Code:

 

Danke, dass klappt. Habe aber noch ein Problem:

Ich muss nach jeder Zeile, die optimiert wird auf OK klicken. Lässt sich das ausschalten?

 

Hallo ihr beiden,

eine Frage dazu : Welche Voraussetzungen (AddIns, Verweise etc.) müssen erfüllt sein, damit der Code funktioniert ?
Mein Excel 2003 mit aktiviertem (oder auch deaktiviertem) SOLVER-AddIn kennt "SolverOK" und "SolverSolve" nicht. Ich kann auch keinen Verweis auf die SOLVER32.DLL setzen *upps .

¿ Wie bekommt man den Code also zum Laufen *eek.gif* ?

Danke für eure Antworten...

 

Habe ein ähnliches Problem, allerdings muss ich zwei Variablen verändern. mein Code sieht wie folgt aus:

For i = 4 To 5

SolverReset

' einstellen des Solvers
SolverAdd CellRef:="$O$" & i, Relation:=2, FormulaText:="0"
SolverOk SetCell:="$M$" & i, MaxMinVal:=3, ValueOf:="$F$" & i, ByChange:=Range("$Q$" & i, "$R$" & i)

' lösen des modells, aber messagebox wird nicht dargestellt
SolverSolve UserFinish:=True

' Abschluss des Modells und beibehalten der Lösung
SolverFinish KeepFinal:=1
Next i

Ich vermute das Problem liegt an dem Range Befehl bei ByChange. Kann mir da jemand helfen?

 

Moin, unregXXX,

entweder die Cells-Eigenschaft innerhalb eines Ranges verwenden oder den Range-Bereich anders zusammensetzen (ungetestet):

Code:

Eventuell muss nach der Cells-Anweisung noch .Address verwendet werden.
Code:

 

Hallo jinx,

vielen Dank. Habe die erste Lösung eingebaut und sie funktioniert.

Habe noch eine Rückfrage zum Element ValueOf:="...". Der Solver funktioniert nicht, sobald ich einen Zellverweis ValueOf:="$F$" & i verwende. Er funktioniert lediglich, wenn ich einen absoluten Wert wie beispielsweise "ValueOf:="0.1" verwende.

Hast du eine Idee, wie man für valueof auf den Wert in einer Zelle verweisen kann?

Vielen Dank

 

Hallo,
ich hatte eben das selbe Problem. Bei mir funktioniert es mit:

"Dim i As Integer
Dim j As Variant

For i = 10 To 200

j = CVar(ThisWorkbook.Sheets("Tabellenblatt1").Cells(i, 4))

SolverReset

SolverOK SetCell:="G" & i, MaxMinVal:=3, Valueof:=j, ByChange:="F" & i

SolverSolve UserFinish:=True

Next i"

Hoffe das Hilft Dir!

Gruß sun_is_shining