AW: zellen anhängen
28.07.2005 08:10:06
Benny
Hallo, ich bekomme das nicht in mein makro eingebaut, ohne einen fehler gezeigt zu bekommen! hier mal mein quelltext der so geht, jedoch immer ein neues sheet anlegt, statt in eins zu schreiben! der anfang liest die einzufügenden xls dateien ein!
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