---

Hallo Leute,

ich möchte kein Excel-Atom nutzen, trotzdem Daten aus Warteschlangen und Maschinen in Excel schreiben, und zwar:
1: Teileabhängig in einer Datei in spezifischen Tabellen
(BSP: Wartezeiten aus einer WS von Teil 1 (bis 8) in Tabelle Teil 1 (bis 8) der Exceldatei)

ich weiß, dass ich im Atom-Editor 4D Skripte eingeben kann.
Ich nutze vorwiegend die Case-funktion.
Im Destruction-Feld steht dann: ExcelWrite(output(c)+1,1,age(i))
Zuvor möchte ich aber die betreffende Tabelle in der Datei öffnen.
Dazu habe ich im Exiting Feld eingegeben:
Case(Label([Label],first(c)),ExcelSheet([Daten_Simulation_Werkstatt:Sheet1]),Excelsheet(...
und so weiter bis 8. (Bis jetzt sind immer Fehler aufgetreten)
Muss bei Sheet1 der exakte Name der Tabelle stehen, oder reicht sheet1 etc.
Oder sollte ich alles ins Destruction-Feld schreiben und vorher den Pfad der Datei festlegen (Wie? ) und dann mittels do und anderen Anweisungen arbeiten?

Im Endeffekt sollen die Zeitdaten für jedes Teil in einer Tabelle stehen, wobei in jeder Tabelle nach Wartezeiten und Bearbeitungszeiten pro Maschine unterschieden wird. Also bei mir: 8 verschiedene Tabellen und pro Tabelle ca. 28 Spalten (da 14 Maschinen (jeweils Warte und Bearb.zeit) und dann Zeilenabwärts alle Daten.
Es würde mich freuen, falls jemand mir da weiterhelfen könnte.

MFG
Knut-Atze

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

---

Habs selber hinbekommen.....nur stellt sich im Nachhinein noch eine Frage.
Wie kann ich in eine Spalte ab der Zelle weiter Daten einspeisen, ab der "" (nichts) drin steht?
In VBA unter Excel wars mal LoopUntil (Cell... = "")
Wie krieg ich das aber in ED hin.

Vielen Dank

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

---

Hallo Knut-Atze,

vielleicht hilft Dir folgendes Beispiel weiter:

{**Code Start**}
do(
c.StartSpalte:=IndexMatchRank(nCols(c),Cell(1,Count,c,1),0,1),  {--Spaltenindex in dem das 1. mal Null gefunden wird--}
c.Schreibvorgänge:=min(nRows(c) - c.StartSpalte,10),            {--Anzahl der Schreibvorgänge (mit Fail Safe für Tabellenende)--}
Repeat(c.Schreibvorgänge,
  do(
  c.Daten:=Count,                                                {--beliebige Daten--}
  Cell(1,c.StartSpalte + Count,c):= c.Daten                      {--Ab Startspalte eintragen--}
  )
)
)
{**Code Ende**}

Anmerkungen:
Syntax sollte stimmen.
Die Schreibweise "c." für Variable funktioniert nur aus der Tabelle heraus, sonst die allgemeingültige Schreibweise "ddb([Variable],c)" verwenden.

Grüsse
SentToSink

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