Option Explicit
Sub Dateien_Zusammen()
Dim fso As Object
Dim baum As Object
Dim zweige As Object
Dim unterordner As Object
Dim ziel As Object
Dim pfad As String
Dim temp As String
Dim quelle As Object
Dim i As Long
pfad = "C:\Users\Desktop\test"
Set ziel = ThisWorkbook
Set fso = CreateObject("Scripting.FileSystemObject")
Set baum = fso.GetFolder(pfad)
Set zweige = baum.subfolders
For Each unterordner In zweige
temp = unterordner.Path & "\" & "GKW.xls"
If fso.fileexists(temp) Then
Workbooks.Open (temp)
Set quelle = ActiveWorkbook
If quelle.Worksheets.Count = 4 Then
For i = 1 To 4
Next i
End If
quelle.Close
End If
Next unterordner
End Sub