Zusammenkopieren mehrerer Excel Dateien in eine Da
20.04.2016 14:35:02
Martin
Hallo,
ich möchte gerne von mehreren Excel Dateien die Daten ab Zeile 2 in eine Excel Tabelle zusammenfügen.
Die Dateien und Zusammenfassung liegen in einem Ordner.
Ich verwende den Folgenden VBA-Code welcher gut funkltioniert, nur werden immer die aktiven Tabellen importiert. Wie kann ich den Code anpassen damit jeweils die Tabelle Ergebnis importiert wird?
Sub zusammenfuegen()
Dim strDateiname As String
Dim loLetzte1 As Long
Dim loLetzte2 As Long
Dim inLetzte As Integer
Application.ScreenUpdating = False
strDateiname = Dir(ThisWorkbook.Path & "\*.xls")
With ThisWorkbook.Worksheets("Ergebnisberichte")
Do While strDateiname <> ""
If strDateiname <> ThisWorkbook.Name Then
Workbooks.Open Filename:=ThisWorkbook.Path & "\" & strDateiname
loLetzte1 = .UsedRange.SpecialCells(xlCellTypeLastCell).Row
loLetzte2 = ActiveWorkbook.ActiveSheet.UsedRange.SpecialCells( _
xlCellTypeLastCell).Row
inLetzte = ActiveWorkbook.ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell) _
_
_
.Column
ActiveWorkbook.ActiveSheet.Range(Cells(3, 1), Cells(loLetzte2, inLetzte)).Copy _
_
_
Destination:=.Cells(loLetzte1 + 1, 1)
ActiveWorkbook.Close True
End If
strDateiname = Dir
Loop
End With
Application.ScreenUpdating = True
End Sub
Besten Dank für die Unterstützung
Martin