Option Explicit
Sub Dateien_Zusammen()
Dim fso As Object
Dim ziel As Object
Dim temp As String
Dim quelle As Object
Dim k As Long
Dim zeileziel As Long
Dim zeilequelle As Long
Set fso = CreateObject("Scripting.FileSystemObject")
Set ziel = ThisWorkbook
zeileziel = ziel.Worksheets("RL").Cells(Rows.Count, 1).End(xlUp).Row
zeileziel = zeileziel + 1
For k = 11 To 31
temp = ziel.Worksheets("Makro").Cells(k, 2)
If fso.fileexists(temp) Then
Workbooks.Open (temp)
Set quelle = ActiveWorkbook
zeilequelle = quelle.Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Row
If zeilequelle > 1 Then
quelle.Worksheets(1).Range("A2:R" & zeilequelle).Copy ziel.Worksheets("RL").Cells(zeileziel, 1)
zeileziel = zeileziel + zeilequelle
End If
quelle.Close
End If
Next k
End Sub