zuerst wäle ich die dateien aus!
folgender lösungsvorschlag wurde mir gemacht! ich denke der ist echt gut!
allerdings bekomme ich immer den fehler: Index außerhalb des gültigen Bereichs!
Woran kann das liegen?
Danke im voraus!
Gruß
Benny
Option Explicit
Sub loaddatatool()
Dim fdp As FileDialog
Dim vrtSelectedItem As Variant
Dim tmp()
Dim i As Integer
i = 1
Set fdp = Application.FileDialog(msoFileDialogFilePicker)
With fdp
.AllowMultiSelect = True
.InitialFileName = ""
.Title = "XLS-Datei Import zum lesen"
.Filters.Clear
.Filters.Add "Microsoft Office Excel-Dateien", "*.xls"
.ButtonName = "Load"
.InitialView = msoFileDialogViewList
If .Show = -1 Then
For Each vrtSelectedItem In .SelectedItems
tmp(i) = vrtSelectedItem
Workbooks("Zusammenfassung").Sheets("Datei").Cells(i, 1).Value = tmp(i)
i = i + 1
Next
End If
End With
End Sub
Sub useing()
Dim i As Integer
Dim mappe As Workbook
Application.ScreenUpdating = False
For i = 1 To 100
Workbooks.Open Filename:= _
Workbooks("Zusammenfassung").Sheets("Datei").Cells(i, 1).Value
Sheets(1).Select
Cells.Select
Selection.Copy
Windows("Zusammenfassung").Activate
Sheets.Add
ActiveSheet.Paste
Next i
For Each mappe In Application.Workbooks
If mappe.Name = ThisWorkbook.Name Or mappe.Name = "Zusammenfassung" Then
Else
mappe.Close
End If
Next
Application.ScreenUpdating = True
End Sub