Hallo Zusammen,

ich würde mich als Anfänger-VBA'ler bezeichnen und kann kleinere Anpassungen teilweise selbst umsetzen.

Aufgabe:

Ich habe 80 Stücklisten die ich in einer Excel-Tabellenblatt (Reiter) zusammen fassen möchte. 
Die meisten Stücklisten haben eine Länge von 90 Zeilen und 14 Spalten.

Folgenden Code habe ich gefunden und leicht auf meine Bedürfnisse angepasst und er funktioniert auch soweit.

Diesen Code:

Option Explicit
' ************************************************************************************************
' Autor/en: http://www.online-vba.de - Marc Wershoven
' Verwendung der Quelltexte auf eigene Gefahr!
' Es gelten die Nutzungsbedingungen von www.online-vba.de!
' Original-Quelltext: www.online-vba.de/vba_datensammeln5.php
' ************************************************************************************************

Sub MWTabellenAusMehrerenDateienEinlesen()
   Dim oTargetSheet As Object
   Dim oSourceBook As Object
   Dim sPfad As String
   Dim sDatei As String
   Dim lErgebnisZeile As Long
   Dim s As Long
   Dim z As Long
  
     Application.ScreenUpdating = False 'Das "Flackern" ausstellen
    
     'Schritt 1: Neues Arbeitsblatt für die Ergebnisse erstellen
     Set oTargetSheet = ActiveWorkbook.Sheets.Add
     lErgebnisZeile = 1 'Ergebnisse eintragen ab Zeile 1
    
     'Schritt 2: Schleife über alle Excel Dateien in einem Verzeichnis
     sPfad = "C:\Users\Schweikardt\Documents\Test\"
     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
             'Keine Leerzeilen verarbeiten
             If Trim(CStr(oSourceBook.Sheets(1).Cells(z, 1).Value)) <> "" Then
                 For s = 1 To oSourceBook.Sheets(1).UsedRange.Columns.Count
                     'Spalte 1 - Dateinamen
                     oTargetSheet.Cells(lErgebnisZeile, 1).Value = sDatei
                     'Spalte 2 bis n - Tabelleninhalte des Arbeitsblattes "Tabelle1"
                     oTargetSheet.Cells(lErgebnisZeile, s + 1).Value = _
                         oSourceBook.Sheets(1).Cells(z, s).Value
                 Next s
                 lErgebnisZeile = lErgebnisZeile + 1
             End If
         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

Allerdings bekomme ich ständig die Fehlermeldung "Overflow" und selbst die Reduzierung auf 10 Stücklisten hat nichts gebracht.
Kann man irgendwie die Klasse wechseln oder Zwischenspeichern, um diesen "Overflow" Fehler zu beheben?

Vielen Dank schon einmal.

Grüße
Matthias