Hallo zusammen!

Ich bin in Sachen VBA leider ein Neuling und würde deshalb eure Hilfe benötigen.

Für eine Auswertung, welche monatlich in ca. 500 Files angelegt wird, bräuchte ich ein Makro, welches die Files aneinander hängt und mir eine Datei mit allen Datensätzen erzeugt. Hierfür habe ich folgendes Makro bereits gefunden, welches diesen Zweck erfüllt:

Public Sub MergeAggregate()

    Const FOLDER_PATH = "C:\Users\maggo\Desktop\Auswertung Dez 2019\C21\Ausgehend\" 'Pfad angepasst

    Dim strFilename As String
    Dim objTargetWorksheet As Worksheet
    Dim objSourceWorkbook As Workbook

    Application.ScreenUpdating = False

    'Active Tabelle
    Set objTargetWorksheet = ActiveSheet

    'erste Datei suchen
    strFilename = Dir$(FOLDER_PATH & "*.xls")

    Do Until strFilename = vbNullString

        'Öffnet eine Datei
        Set objSourceWorkbook = Workbooks.Open(Filename:=FOLDER_PATH & strFilename)

        'Kopiert von den Zeilen 2 bis zum Ende
        With objSourceWorkbook.ActiveSheet

            .Range(.Cells(2, 1), .Cells(.Cells(.Rows.count, 1).End(xlUp).Row, 15)).Copy

        End With

        'in die aktive Mappe und fügt sie jeweils unten an
        With objTargetWorksheet

            .Paste Destination:=.Cells(.Rows.count, 1).End(xlUp).Offset(1, 0)

        End With

        Application.CutCopyMode = False

        'Schliesst die geöffnete Datei
        Call objSourceWorkbook.Close(SaveChanges:=False)

        'Lese den nächsten Dateinamen
        strFilename = Dir$()

        Set objSourceWorkbook = Nothing

    Loop

    Set objTargetWorksheet = Nothing

    Application.ScreenUpdating = True

End Sub

Nun würde ich allerdings noch einen zusätzliche Ergänzung benötigen:

• Es soll in einer Spalte zu jedem Datensatz ein zugehöriger Wert ergänzt werden, welcher aus dem Dateinamen ableitbar ist. Dies sieht in etwa so aus: Datensatz gehört zu GS001 -> Dateiname: GS001_122019.xls. Bestmöglich sollten also nur die ersten 5 Stellen des Dateinamens zu jedem Datensatz hinzugefügt werden!

Über eine Hilfe würde ich mich freuen! Vielen Dank!

LG

Markus