hat jemand irgendeine idee?
Danke!
Sub loaddatatool ruft filedialog auf und schreibt in deine Zusammenfassung alles ausgewählte in Spalte a
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 using durchläuft schleife bis hundert bei hundert ausgewählten dateien und öffnet
datei die vorher in der Zusammenfassung hinterlegt wurden sind und kopiert ganze 1 sheet
in ein in der Zusammenfassung neu erstelltes sheet am Schluß alle anderen workbooks
noch schließen und fertig
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
Einfach nach deinem etwas modifizieren und fertig
Gruß Sylvio