Kopieren
25.11.2003 08:17:08
Gunther
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?