Sub FilesListen()
Call EventsOff
Dim Dateien As Integer
Dim DateiName As String
Dim zeile As Long
Dim zeile1 As Long
With Application.FileSearch
.NewSearch
.LookIn = "C:\Temp\"
.Filename = "*.xls"
If .Execute() > 0 Then
For Dateien = 1 To .FoundFiles.Count
DateiName = Dir(.FoundFiles(Dateien))
If DateiName <> ThisWorkbook.Name Then
Workbooks.Open Filename:=.FoundFiles(Dateien)
zeile = ThisWorkbook.Sheets("Tabelle1").UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1
zeile1 = Workbooks(DateiName).Sheets("Tabelle1").UsedRange.SpecialCells(xlCellTypeLastCell).Row
Workbooks(DateiName).Sheets("Tabelle1").Range("A2:U" & zeile1).Copy ThisWorkbook.Sheets("Tabelle1").Range("A" & zeile)
Workbooks(DateiName).Close SaveChanges:=True
End If
Next Dateien
End If
End With
Call EventsOn
End Sub
Public Sub EventsOff()
With Application
.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlCalculationManual
End With
End Sub
Public Sub EventsOn()
With Application
.ScreenUpdating = True
.EnableEvents = True
.Calculation = xlCalculationAutomatic
End With
End Sub