Excel 'dynamisch' machen

[ByTheTime]

Sorry, war 'ne dumme Frage von mir, habs gelöst mit:

Delphi-Quellcode:

 while (not Table1.Eof) do
  begin
   Excel.Cells[i, 1].Value := Table1D.Value;
   Excel.Cells[i, 2].Value := Table1Z.Value;
   Excel.Cells[i, 4].Value := Table1B.Value;
   Excel.Cells[i, 5].Value := Table1W.Value;
   Excel.Cells[i, 6].Value := Table1Be.Value;
   Excel.Cells[i, 7].Value := Table1M.Value;
   Excel.Cells[i, 8].Value := Table1P.Value;
   Excel.Cells[i, 9].Value := Table1E.Value;
   Excel.Cells[i, 10].Value := Table1A.Value;
   Excel.Cells[i, 11].Value := Table1Ec.Value;
   Table1.Next;
   i := i + 1;
  end;