Solver berechnet nicht wenn er aus einem fremden..
02.06.2005 11:43:49
Horst
Hey !
Der beitrag ist wieder aktuell geworden: (Archiv tread)
https://www.herber.de/index.html?https://www.herber.de/forum/archiv/616to620/t616856.htm
Es tut doch nicht was es soll :-((
Mit:
--------------------------------------
SolverOk SetCell:=Sheets("Zielwert").Range("$G$5"), MaxMinVal:=1, ValueOf:="0", ByChange:=Sheets("Zielwert").Range("$G$5")
SolverDelete CellRef:=Sheets("Zielwert").Range("$B$5"), Relation:=2, FormulaText:=Sheets("Zielwert").Range("$J$4")
SolverAdd CellRef:=Sheets("Zielwert").Range("$B$5"), Relation:=2, FormulaText:=Sheets("Zielwert").Range("$J$4")
SolverOk SetCell:=Sheets("Zielwert").Range("$G$5"), MaxMinVal:=1, ValueOf:="0", ByChange:=Sheets("Zielwert").Range("$G$5")
SolverSolve userfinish:=True
------------------------------------
Wird das Makro zwar aufgerufen aber er rechnet nichts neues aus.
auch mit:
SolverOk SetCell:=Tabelle12.Range("$G$5"), MaxMinVal:=1, ValueOf:="0", ByChange:=Tabelle12.Range("$G$5")
SolverDelete CellRef:=Tabelle12.Range("$B$5"), Relation:=2, FormulaText:=Tabelle12.Range("$J$4")
SolverAdd CellRef:=Tabelle12.Range("$B$5"), Relation:=2,FormulaText:=Tabelle12.Range("$J$4")
SolverOk SetCell:=Tabelle12.Range("$G$5"), MaxMinVal:=1, ValueOf:="0", ByChange:=Tabelle12.Range("$G$5")
SolverSolve userfinish:=True
----------------------------------------------
Bekomme ich kein neues rechen ergebnis :-(
Ich habe dann vor im Makro die tabelle selber aktiviert.
Tabelle12.Activate
Und zum schluss wieder die Tabelle von wo ich das makro aus starte.
Tabelle3.Activate
Dann rechnet er auch nicht, aber es wird mir dann auch kurzfristig die Tabelle12 angezeigt, die verschwindet zwar wieder und ich komme mit:
Tabelle3.Activate
in die ausgangstabelle zurück.
Aber das anzeigen der Tabelle12 (berechnungstabelle) will ich ja vermeiden, die soll naemlich uebrhaupt nicht in erscheinung treten. Da ich sie verstecken (ausblenden) will.
Wenn ich Tabelle12 naemlich ausblende (verstecke) rechnet der solver auch mit
Tabelle12.Activate
im makro auch nichts neues aus.
--------------------------------------------------
--------------------------------------------------
Eigene Teillösung:
Der solver berechnet nur wenn ich das makro in der tabelle aufrufe in der die berechnung durch den solver auch durchgeführt werden soll. (Tabelle12)
Das ganze sieht dann so aus:
In Tabelle3
Sub BerechnungStarten()
Tabelle12.SolverStarten
End
Sub
In Tabelle12
Sub SolverStarten()
Tabelle12.Activate
SolverOk SetCell:="$G$5", MaxMinVal:=1, ValueOf:="0", ByChange:="$G$5"
SolverDelete CellRef:="$B$5", Relation:=2, FormulaText:="$J$4"
SolverAdd CellRef:="$B$5", Relation:=2, FormulaText:="$J$4"
SolverOk SetCell:="$G$5", MaxMinVal:=1, ValueOf:="0", ByChange:="$G$5"
SolverSolve userfinish:=True
Tabelle3.Activate
End Sub
--------------------------------------------
Wie gesagt das problem mit den aufpoppen der excelsheets bleibt :-((
--------------------------------
Irgendwelche neuen ideen, was ich vielleicht verkehrt gemacht habe oder neue ideen?
Gruss
horst