Sub MWTabellenAusMehrerenDateienEinlesen()
   Dim oTargetSheet As Object
   Dim oSourceBook As Object
   Dim sPfad As String
   Dim sDatei As String
   Dim lErgebnisSpalte As Long
   Dim s As Long
   Dim z As Long
   Dim s1 As Long
   Dim z1 As Long
   
 
     Application.ScreenUpdating = False 'Das "Flackern" ausstellen
    
     'Schritt 1: Neues Arbeitsblatt für die Ergebnisse erstellen
     Set oTargetSheet = ActiveWorkbook.Sheets.Add
     lErgebnisSpalte = 1 'Ergebnisse eintragen ab Zeile 1
    
     'Schritt 2: Schleife über alle Excel Dateien in einem Verzeichnis
     sPfad = "C:\Users\halletim\Desktop\Heinz Projekt\"
     sDatei = Dir(CStr(sPfad & "*.xl*")) 'Alle Excel Dateien
    
     Do While sDatei <> ""
    
         'Schritt 3: öffnen der Datei und Datenübertragung
         Set oSourceBook = Workbooks.Open(sPfad & sDatei, False, True) 'nur lesend öffnen
        
         'Datenübertragung alle genutzten Zeilen und Spalten
         'For z = 1 To oSourceBook.Sheets(1).UsedRange.Rows.Count
         z1 = oSourceBook.Sheets(1).UsedRange.Rows.Count
         s1 = oSourceBook.Sheets(1).UsedRange.Columns.Count
             'Keine Leerzeilen verarbeiten
             'Spalte 1 - Dateinamen
             'oTargetSheet.Cells(1, lErgebnisSpalte).Value = sDatei
             'If Trim(CStr(oSourceBook.Sheets(1).Cells(z, 1).Value)) <> "" Then
                 'For s = 1 To oSourceBook.Sheets(1).UsedRange.Columns.Count
                
                 oSourceBook.Sheets(1).Range(Cells(1, 1), Cells(z1, s1)).Copy oTargetSheet.Range(Cells(1, lErgebnisSpalte), Cells(z1, s1))
                 
                     'Spalte 2 bis n - Tabelleninhalte des Arbeitsblattes 1
                     'lErgebnisSpalte = lErgebnisSpalte + 1
                     'oTargetSheet.Cells(1, lErgebnisSpalte).Value = _
                         'oSourceBook.Sheets(1).Cells(z, s).Value
                         
                         
                 'Next s
                 lErgebnisSpalte = lErgebnisSpalte + 1
            ' End If
             'lErgebnisSpalte = lErgebnisSpalte + 1
         'Next z
        
         'Schritt 4: Datei wieder zu machen und nächste Schleifenrunde
         oSourceBook.Close False 'nicht speichern
        
         'Nächste Datei
         sDatei = Dir()
     Loop
    
     Application.ScreenUpdating = True 'Das Bildschirm-Aktualisieren wieder einschalten
    
     'Variablen aufräumen
     Set oTargetSheet = Nothing
     Set oSourceBook = Nothing
End Sub