Thema Datum  Von Nutzer Rating
Antwort
Rot Solver mittels VBA
 12.07.2009 15:29:28 Launsebay
NotSolved

Ansicht des Beitrags:
Von:
Launsebay		 Datum:
12.07.2009 15:29:28		 Views:
1602		 Rating:
     
Antwort:
  Ja
Thema:
Solver mittels VBA
Hallo zusammen,

ich arbeite zur Zeit mit dem Excel Solvr und möchte gerne den Prozess mittels eines Makros automatisieren. Ohne jegliche Nebenbedingungen hatte ich kein Problem eine VB-Code zuschreiben. Aber mit einer Nebenbedingung (NB) wird es etwas problematischer.

Mein Code sieht folgendermaßen aus:

Dim i As Long
For i = 33 To 39
SolverDelete CellRef:="$C$" & i-1, Relation:=2, FormulaText:="$E$" & i-1
SolverAdd CellRef:="$C$" & i, Relation:=2, FormulaText:="$E$" & i
SolverOk SetCell:="$D$" & i, MaxMinVal:=3, ValueOf:="0", ByChange:="$B$:$C$" & i
SolverSolve True
Next i
End Sub

Ich möchte gerne, dass über die NB auch iteriert wird. Jedoch scheint mit diesem Code meine Optimierung nicht zu klappen.
Konkret sieht meine Aufgabe folgendermaßen aus:

Eine Zelle (hier D & i ) soll auf den Wert Null gebracht werden, wobei die Veränderbaren Zellen (hier B:C & i) sind. Unter Beachtung der NB das die Zelle (C & i = E & i ) entspricht.

Nun soll dieser Prozess über alle i gemacht werden. Somit müsste aber bei jeder neune Optimierung die letzte NB gekscht werden ( daher ganz am Anfang i-1).

Ich wäre sehr dankbar, wenn mir jemand einen kleinen Tipp geben könnte.

Gruß

Launsebay

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Solver mittels VBA
 12.07.2009 15:29:28 Launsebay
NotSolved