Dim objXLApp   As Excel.Application
Dim objXLWkb   As Excel.Workbook
Dim objXLWks   As Excel.Worksheet
 
Set objXLApp = CreateObject("Excel.Application")
objXLApp.Visible = True
 
 
 
  If CommonDialog1.FileName <> "" Then
    objXLApp.EnableEvents = False
    objXLApp.Workbooks.Open NeueDatei
  End If
 
  i = 2
 
Do While i <> (x + 1)
 
    '#### Arrayinhalt zurückschreiben in neue Tabelle ######################
 
       ' B = "A" & i                        ' <<< ---- Um Position des Focus in _
         der Excel Tabelle festzulegen
objXLWks.Range(objXLWks.Cells(1, i), objXLWks.Cells(1, i)).Value = _
SpeicherArray(1, i)
        B = "B" & i

objXLWks.Range(objXLWks.Cells(1, i), objXLWks.Cells(1, i)).Value = _
  SpeicherArray(1, i)

MfG Lord_Duke
a.k.a. Loki

Design is 4 your Life and not for the others

________________________________________________________________
Windows XP Prof. SP 2 @ 2X 3,45 GHz P4 D ( 830) // DDR2 1024 MB //
GeForce 6600 GT Silent Pipe // 500 GB HDD