So hab jetzt selber eine Lösung gefunden.
Der Code hier funktioniert:
Sub uebersicht()
Dim datei As String, pfad As String, Zzeile As Long, i%, suche, AZelle As Range
Dim quelle As Object
pfad = "\\Medico1\Serverdaten\Rechnungen 2010\01 Januar 0040-\"
datei = Dir(pfad & "*.xls")
Application.ScreenUpdating = False
Zzeile = ThisWorkbook.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row + 1
Do While Not datei = ""
Set quelle = Workbooks.Open(pfad & datei)
For i = 2 To 40
suche = quelle.Sheets(1).Cells(i, 1).Value
With ThisWorkbook.Sheets(1).Columns(1)
Set AZelle = .Find(suche, LookAt:=xlWhole, LookIn:=xlValues)
If AZelle Is Nothing Then
quelle.Sheets(1).Rows(i).Copy Destination:=.Cells(Zzeile, 1)
Zzeile = Zzeile + 1
End If
End With
Next i
quelle.Close
datei = Dir
DoEvents
Loop
Application.ScreenUpdating = True
End Sub
Und wenn man mehrere Ordner durchsuchen möchte dann muss man einfach nur nochmal einen teil des Codes anhängen.
pfad = "\\Medico1\Serverdaten\Rechnungen 2010\Rechnungsblöcke\"
datei = Dir(pfad & "*.xls")
Application.ScreenUpdating = False
Zzeile = ThisWorkbook.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row + 1
Do While Not datei = ""
Set quelle = Workbooks.Open(pfad & datei)
For i = 2 To 40
suche = quelle.Sheets(1).Cells(i, 1).Value
With ThisWorkbook.Sheets(1).Columns(1)
Set AZelle = .Find(suche, LookAt:=xlWhole, LookIn:=xlValues)
If AZelle Is Nothing Then
quelle.Sheets(1).Rows(i).Copy Destination:=.Cells(Zzeile, 1)
Zzeile = Zzeile + 1
End If
End With
Next i
quelle.Close
datei = Dir
DoEvents
Loop
Application.ScreenUpdating = True
ISt vielleicht nicht umbedingt die schönste Lösung aber sie funktioniert zumindest.
Dank an alle die versucht haben mir zu helfen