---

Hallo,

nachdem ich mich in den letzten drei Wochen damit befasste, den Textteil meiner Diplomarbeit zu Papier zu bringen, habe ich jetzt drei Tage Zeit, das Modell in Gang zu bringen. Ohne die Hilfeleistung in diesem Forum wäre ich an so mancher Stelle garantiert aufgeschmissen gewesen. Deshalb noch zwei letzte Fragen:

Mein Simulationsmodell in ED bekommt Werte aus Excel übermittelt. Ich möchte aus 27 Queues das Atom herausziehen, welches meinen Berechnungen nach das aktuell beste ist, bearbeitet zu werden. Dieses Produkt wird in Excel in einer definierten Zelle durch seine ProduktID genannt. Die Bearbeitung findet in einem Server Atom statt. Wenn ich nun die Input Strategie so einstelle, dass ein Produkt by ID gezogen werden soll, so fünktioniert dieses nicht. Gibt es irgendwelche Hinweise, wie ich anhand einer Zahl, die mir Excel wiedergibt, und die gleich der ProdID ist, dieses Produkt auch "ziehen" kann? In einer Queue können mehrere Produkte sein...

Ich habe immer noch das Problem, dass während der Berechnung in meinem Makro das Simulationsmodell angehalten werden soll. Von einem Bekannten hörte ich, dass es einen Befehl gibt, der bei Excel am Ende des Makros eingegeben werden muss, um das Simulationsmodell wieder zu starten. Der Befehl Stop wird nach Start des Makros in ED ausgeführt. Der Makro verwendete Befehl lautet so oder so ähnlich - Run4DScript(...)

Ich bin wie immer über jede Anregung dankbar!

Tim Langenbach

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo tila,

zur ersten Frage denke ich dass folgende Anweisung ganz gut passt:

"
AtomByID(ExcelRead(33,22),Model)
"

Damit sollte es möglich sein, das gewünschte Product im Modell aufzufinden. Zeilen- und Spaltenindex sind noch anzupassen. Vorher auch das richtige Excelsheet aktiv machen. Ist das gewünschte Product erstmal gefunden, dann kann es zum Beispiel mit "MoveAtom" aus dem Queue herausbefördert werden.

Die zweite Sache erfordert wohl ein wenig VB. Hier ein Beispielmakro aus einem Excel-Command-Button, welches ED aus Excel heraus startet (ungetestet):

"
Private Sub CommandButton6_Click()

Channelnumber = Application.DDEInitiate( _
    app:="4DSCRIPT", _
    topic:="SYSTEM")

Application.DDERequest Channelnumber, "  run "

Application.DDETerminate Channelnumber

End Sub
"

Grüsse
C. Meyr

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP