Dim fso As Object
Dim fld As Object
Dim fil As Object
Dim vpfad As String
Dim zeile As Long
Dim Suchen As String
Dim gefZelle As Object
Dim i As Integer
Dim NeueZeile As Long
 
vPfad = a & "\User\"
Set fso = CreateObject("Scripting.FileSystemObject")
Set fld = fs.GetFolder(vPfad)
 
For Each fil In fld.Files
Workbooks.Open(fil)
zeile=1
Do While Workbooks(fil.name).Sheets(1).Cells(zeile, 1).Value<>""
Suchen=Workbooks(fil.Name).Sheets(1).Cells(zeile, 1).Value
Set gefZelle=ThisWorkbooks.Sheets(3).Range("A:A").Find(What:=Suchen)
If gefZelle Is Nothing Then
For i=1 To 10
NeueZeile=ThisWorkbook.Sheets(3).Cells.SpecialCells(xlCellTypeLastCell).Row + 1
ThisWorkbook.Sheets(3).Cells(NeueZeile, i).Value=Workbooks(fil.name).Sheets( _
  1).Cells(Zeile, i).Value
Next i
End If
zeile=zeile+1
Loop
Workbooks(fil.name).Close(False)
Next

EALA FREYA FRESENA