Hallo,
das folgende Makro gehört in ein Standardmodul (siehe hier: http://www.excelbeispiele.de/Modul.htm) deiner Arbeitsmappe, in der du die einzelnen Tabellen zusammenführen willst:
Sub Dateien_oeffnen()
Dim DateiName As String
Dim strPfad As String
'Pfad für Verzeichnis festlegen
strPfad = "C:\Users\r.s\Baza\"
With Application
.ScreenUpdating = False
.EnableEvents = False
End With
'Alle Dateien aus Verzeichnis öffen,
DateiName = Dir(strPfad & "*.xlsx")
Do While DateiName <> ""
If ThisWorkbook.Name <> DateiName Then
'wenn diese mit search100_Blumen_ beginnen
If Left(DateiName, 18) = "search100_ Blumen_" Then
Workbooks.Open Filename:=strPfad & DateiName
'und erstes Blatt in diese Mappe kopieren
Workbooks(DateiName).Sheets(1).Copy after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
'geöffnete Mappe wieder schließen, ohne speichern
Workbooks(DateiName).Close SaveChanges:=False
End If
End If
DateiName = Dir
Loop
With Application
.ScreenUpdating = True
.EnableEvents = True
End With
End Sub
Es wird immer das erste Blatt aus den Arbeitsmappen, die mit search100_ Blumen_ beginnen in die aktuelle Arbeitsmappe kopiert. Beachte bitte, dass es zu Fehlern kommen kann, wenn die zu kopierenden Tabellen gleiche Namen haben.
Gruß
M.O.