Option Explicit
 
Dim FileObj 
Set FileObj = CreateObject("Scripting.FileSystemObject")
 
    Dim ix, ex, en, iPath1 , iPath3, iPath4, Ipath5, ePath 
    Dim iFile , eFile
 
Function ConvertFile()
 
    On Error Resume Next
 
    iPath1 = "haendler1.csv"
    iPath2 = "haendler1.csv"
    iPath3 = "haendler1.csv"
    iPath4 = "haendler1.csv"
    iPath5 = "haendler1.csv"
    ePath = "import.csv"           
 
    en = Array( _
      "XTSOL","p_model","p_stock","p_priceNoTax","p_priceNoTax.1","p_priceNoTa" & _
      ".2","p_tax","p_status","p_disc","p_image","p_name.de","p_desc.de","p_sh" & _
      "rtdesc.de","p_meta_title.de","p_meta_desc.de","p_meta_key.de","p_keywor" & _
      "s.de","p_cat.1","p_cat.2","p_cat.3")
    VZ = "XTSOL"
 
   'p_priceNoTax = Artikelpreis (netto) = 
   'p_priceNoTax1 = Artikelpreis (Gast)
   'p_priceNoTax2 = Artikelpreis Neuer Kunde
   'p_priceNoTax3 = Artikelpreis Händler
   'p_priceNoTax4 
 
    en = Array("Artikelnummer", "Bestand", "UVP", "Shoppreis")
 
    Set iFile1 = OpenTextFile(iPath1)
    Set iFile2 = OpenTextFile(iPath2)
  	Set iFile3 = OpenTextFile(iPath3)
	  Set iFile4 = OpenTextFile(iPath4)
	  Set iFile5 = OpenTextFile(iPath5)
 
	  Set eFile = FileObj.CreateTextFile(ePath, True)
 
    'If Err Then MsgBox "Datei nicht gefunden.", 48, "Fehler":  GoTo Ende
 
    eFile.WriteLine en
 
 
 
''    iFile1.SkipLine
''    iFile2.SkipLine
''    iFile3.SkipLine
''    iFile4.SkipLine
''    iFile5.SkipLine
 
''    Do While iFile1.AtEndOfStream = False
''        ix1 = Split(iFile1.ReadLine, ";")
''        ix2 = Split(iFile2.ReadLine, ";")
''        ix3 = Split(iFile3.ReadLine, ";")
''        ix4 = Split(iFile4.ReadLine, ";")
''        ix5 = Split(iFile5.ReadLine, ";")
''        
		'If Not ix1(0) = "" Then
''            ex = VZ + ";"+ ix1(1) + ";" + ix1(2)
			' ix1(5);ix(2), ix(3) & ix(2), ix(15), "", ix(8), _
            '           ix(7), ix(10), "", ix(9), ix(11), "", ix(13), "", ix( 
            ' 12), ix(14))
''            efile.WriteLine ex
''        'End If
''    Loop
 
'Ende:
    iFile1.Close
    iFile2.Close
    iFile3.Close
    iFile4.Close
    iFile5.Close
    eFile.Close
    'Kill iPath 'Import-Datei löschen
End Function

Greezt mave