Ich versuche im Moment folgende Aufgabe zu lösen: In einem Verzeichnis befinden sich x-Dateien. Aus diesen Datein möchte ich die Inhalte auslesen und in einer Datei zusammenführen. Leider klappt das nicht so wie ich mir das vorstelle. Allerdings sind meine VBA-Kenntnisse hierzu auch nicht überragend. Soweit bin ich bisher:

strWorkDir = ThisWorkbook.Path + "\Import\"
strFiles = Dir(strWorkDir & "*.xls", vbDirectory)
ThisWorkbook.Worksheets(2).UsedRange.Clear

Do While strFiles <> ""
i = ActiveSheet.UsedRange.Rows.Count

Workbooks.Open (strWorkDir + strFiles)
Workbooks(strFiles).Worksheets(1).Activate
ActiveSheet.Unprotect
Workbooks(strFiles).Worksheets(1).Columns("A:D").Select
Selection.EntireColumn.Hidden = False
Workbooks(strFiles).Worksheets(1).UsedRange.Select
Selection.Copy

ThisWorkbook.Worksheets(2).Activate
ThisWorkbook.Worksheets(2).Cells(i, 1).Select
Selection.PasteSpecial

strFiles = Dir()
Loop

Jedesmal nach dem PasteSpecial bricht das Programm ab und Excel hängt sich im Anschluss auf, obwohl der Inhalt noch eingefügt wird. Leider habe ich keine Idee warum! Könnt Ihr mir hierzu weiterhelfen?