Hallo Zusammen,
ich habe eben hier guten Support bekommen, allerdings schließt sich ein Folgeproblem an.
Mit folgendem Coding stelle ich mir Tabellenblätter aus mehreren Dateien zusammen, die ich anschließend in einer Tabelle zusammenführe:

arrDateien = Application.GetOpenFilename(filefilter:="Excel-Dateien (*.xls*), *.xls*", MultiSelect:=True)

If IsArray(arrDateien) Then
For cntDatei = 1 To UBound(arrDateien)
Set wbQuelle = Workbooks.Open(Filename:=arrDateien(cntDatei), UpdateLinks:=False, ReadOnly:=True)
For Each sh In wbQuelle.Worksheets
If sh.Name Like "OPC*" Then
sh.Copy after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
End If
Next sh
wbQuelle.Close savechanges:=False
ActiveSheet.Name = "Beleg" & cntDatei
Next cntDatei
End If

Das Problem ist das in den einzelnen Tabellen aus den unterschiedlichen Dateien eine Information fehlt. Diese Information steht aber im jeweiligen Dateinamen.
Um genau zu sein die Information fängt immer an der 13ten Stelle des Dateinnamens an und der 14nt letzten Stelle des Namens auf.
Gibt es eine Möglichkeit innerhalb des o.g. Codings diesen Teil des Namens noch in das angesprochene Tabellenblatt zu schreiben?
Am liebsten in jede beschriebene Zeile einmal z.B. in Spalte A? Oder ggf. nur ein eine definierte Zelle z.B. "K1"?

Ich hoffe ihr versteht meine Umschreibung...
Vielen Dank und Gruß
addi23