Hi,
öffne alle Arbeitsmappen aus denen du die Daten kopieren willst. Mit folgendem Makro in der Arbeitsmappe, in die die Daten kopiert werden sollen, kannst du dein Vorhaben realiseren:
Sub Kopieren()
Dim rngZelle As Range
Dim lngLetzte As Long
Dim lngZiel As Long
Dim wkbMappe As Workbook
lngZiel = 2
For Each wkbMappe In Workbooks
If wkbMappe.Name <> ThisWorkbook.Name And wkbMappe.Name <> "PERSONAL.XLSB" Then
With wkbMappe.Worksheets("Tabelle1")
Set rngZelle = .Columns(1).Find("Time", lookat:=xlWhole)
If Not rngZelle Is Nothing Then
lngLetzte = .Columns(1).Find(What:="*", _
SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Union(.Range(.Cells(rngZelle.Row + 1, 1), _
.Cells(lngLetzte, 1)), _
.Range(.Cells(rngZelle.Row + 1, 3), _
.Cells(lngLetzte, 4))).Copy _
ThisWorkbook.Worksheets("Tabelle2").Cells(lngZiel, 1)
lngZiel = ThisWorkbook.Worksheets("Tabelle2").Columns(1).Find(What:="*", _
SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row + 1
End If
End With
End If
Next wkbMappe
End Sub
Beachte: da du nicht angegeben hast, wie das Tabellenblatt heißt aus dem kopiert werden soll, bin ich davon ausgegangen dass es "Tabelle1" heißt.
Bis später, Karin