ich möchte von einer datei die mehrere Tabellen (15 versch namen) hat mit verschiedenen Namen hat einen bereiche z.Bsp a5:b7 herauskopieren lassen und in eine datei zusammenfassen
kann man das ?
gruss
nikko
https://www.herber.de/bbs/user/15635.zip
Sub Dateienzusammenkopieren()
Dim Mappe As String
Dim i As Integer
Mappe=ActiveWorkboo.Name
Range("A1").Select
With Application.Filesearch
.NewSearch
.LookIn = "C:\Daten"
.SearchSubFolders = False
.Filetype = msoFileTypeExcelWorkbooks
.Execute
For i = 1 To .FoundFiles.Count
Workbook.Open .FoundFiles(i)
Range("A5:B7").Copy
Workbooks(Mappe).Activate
ActiveSheet.Paste
ActiveCell.Offset(5, 0).Select <- 5 = 5Zellen tiefer einegfügt
Next i
End With
End Sub
Sub Dateienzusammenkopieren()
Dim Mappe As String
Dim i As Integer
'Workboo + k = Workbook o.w.T
'Mappe = ActiveWorkboo.Name
Mappe = ActiveWorkboo + k
Range("A1").Select
With Application.FileSearch
.NewSearch
.LookIn = "H:\Daten\privat\TipsOffice\Excel"
.SearchSubFolders = False
.FileType = msoFileTypeExcelWorkbooks
.Execute
For i = 1 To .FoundFiles.Count
Workbook.Open .FoundFiles(i)
Range("A5:B7").Copy
Workbooks(Mappe).Activate
ActiveSheet.Paste
'<- 5 = 5Zellen tiefer einegfügt
ActiveCell.Offset(5, 0).Select
Next i
End With
End Sub
Sub Dateienzusammenkopieren()
Dim Mappe As String
Dim i As Integer
Mappe = ActiveWorkbook.Name ' ActiveWorkbook.Name und nicht ActiveWorkboo.Name
Range("A1").Select
With Application.FileSearch
.NewSearch
.LookIn = "H:\Daten\privat\TipsOffice\Excel"
.SearchSubFolders = False
.FileType = msoFileTypeExcelWorkbooks
.Execute
For i = 1 To .FoundFiles.Count
Workbooks.Open .FoundFiles(i) ' Workbooks.Open und nicht Workbook.Open
Range("A5:B7").Copy
Workbooks(Mappe).Activate
ActiveSheet.Paste
'<- 5 = 5Zellen tiefer einegfügt
ActiveCell.Offset(5, 0).Select
Next i
End With
End Sub