ich habe vier Excel-Dateien, die jeweils eine Tabelle der gleichen Struktur (Anzahl und Art der Spalten) enthalten. Kann ich in einer weiteren Datei eine Zusammenführung der Einzeldateien erzeugen? Wenn ja, wie mache ich das?
Danke
PeMoe
Sub sheetscopy()
Const n As Integer = 4
Dim i As Integer, lc As Integer
Dim NewSheet As Worksheet
Dim CopyRange As Range
Set NewSheet = Worksheets.Add
NewSheet.Move after:=Sheets(Sheets.Count)
For i = 1 To n
Set CopyRange = Sheets(i).Range("A1").CurrentRegion
lc = NewSheet.Range("A1").CurrentRegion.Rows.Count + 1
CopyRange.Copy NewSheet.Cells(lc, 1)
Next
End Sub