"Dateien zusammenfassen"
05.08.2005 09:00:21
Luzie
ich habe noch immer das Problem, dass ich meine Exceldateien nicht in eine Tabelle zusammenfassen kann.Die Dateien Laden kann ich, dafür hab ich das Sub Loaddata. Irgendetwas stimmt noch nicht an meinem anderen Code.
Kann mir vielleicht jemand dabei helfen?
Hier ist der Code:
Sub using()
Dim i, iLetzteZeile, iLetzteSpalte As Integer
Dim mappe As Workbook
Application.ScreenUpdating = False
Sheets.Add
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("Tabelle9").Activate
ActiveSheet.Paste
iLetzteZeile = Sheets("Tabelle9").Range("A1").SpecialCells(xlCellTypeLastCell).Row
iLetzteSpalte = Sheets("Tabelle9").Range("A1").SpecialCells(xlCellTypeLastCell).Column
Cells(iLetzteZeile, iLetzteSpalte).Activate
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