Do While Workbooks(fil.Name).Sheets(1).Cells(zeile, 1).Value <> ""
            Suchen = Workbooks(fil.Name).Sheets(1).Cells(zeile, 1).Value
            Set gefZelle = ActiveWorkbook.Sheets(3).Range("A:A").Find( _
              What:=Suchen)
            NeueZeile = ThisWorkbook.Sheets(3).Cells.SpecialCells( _
            xlCellTypeLastCell).Row + 1
            If gefZelle Is Nothing Then
                For i = 1 To 14
 
                    ThisWorkbook.Sheets(3).Cells(NeueZeile, i).Value =_ _
                      Workbooks(fil.Name).Sheets(1).Cells(zeile, i).Value
                Next i
            End If
        zeile = zeile + 1
        Loop