Danke im voraus!
Benny
Sub loaddatatool()
Dim fdp As FileDialog
Dim vrtSelectedItem As Variant
Dim tmp(100)
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.xls").Sheets("Tabelle1").Cells(i, 1).Value = tmp(i)
i = i + 1
Next
End If
End With
Call using
End Sub
Sub using()
Dim i As Integer
Dim mappe As Workbook
Application.ScreenUpdating = False
For i = 1 To 100
If IsEmpty(Workbooks("Zusammenfassung.xls").Sheets("Tabelle1").Cells(i, 1)) Then Exit For
Workbooks.Open Filename:= _
Workbooks("Zusammenfassung.xls").Sheets("Tabelle1").Cells(i, 1).Value
Sheets(1).Cells.Copy
Windows("Zusammenfassung.xls").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 SaveChanges:=False
End If
Next
Application.ScreenUpdating = True
End Sub