Dim fs, f, f1, fc, vdummy
    Dim vPfad As String
 
    vPfad = a & "\User\"
 
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(vPfad)
    Set fc = f.Files
    y = ThisWorkbook.Sheets(3).Cells.SpecialCells(xlCellTypeLastCell).Row + 1
 
    For Each f1 In fc
 
        Set vdummy = Workbooks.Open(vPfad & f1.Name)
        For i = 5 To vdummy.Sheets(1).Cells.SpecialCells(xlCellTypeLastCell).Row
            vdummy.Sheets(1).Rows(i).Copy
        ThisWorkbook.Sheets(1).Range("A" & x).PasteSpecial xlValue
 
        
        'HIER SOLL VORHER ABGEGLICHEN WERDEN OB DIE DATEN IN SHEET1 <> 
        ' SHEET3 SIND,WENN JA DANN        
        'SOLLEN DIE DATEN IN SHEET3 EINGETRAGEN WERDEN. SHEET1 IST TEMPORÄR UND 
        ' SHEET3 SOLL EINE
        'WACHSENE TABELLE SEIN, WO DANN HALT KEINE DUPLIKATE VORKOMMEN 
        ' SOLLEN!
 
        ThisWorkbook.Sheets(3).Range("A" & y).PasteSpecial xlValue
 
 
 
        x = x + 1
        y = y + 1
        Next i
        vdummy.Saved = True
        vdummy.Close
 
    Next