Clever-Excel-Forum

Hallo zusammen,
ich möchte mittels Makro mehrere Dateien mit unterschiedlichem Namen öffnen. Die zu öffnenden Dateinamen sie folgendermaßen aufgebaut: Tray 0000007 2018_04_19_13_04_18.xlsx.
Dabei möchte ich alle Dateien öffnen die im Namen die Zeichenfolge 2018_04_19 besitzen, der Anfang und das Ende sollen dabei nicht mit beachtet werden.
Danke schon mal für eure Hilfe.
Gruß Simson

Hallo,

habe per Googlei, folgendes gefunden und getestet:

Code:
Sub DateienSuchen()

    Dim Dateiname, Pfad, teil

    Pfad = "C:\Users\NAME\Desktop\"

    teil = "2018_04_19"

    Dateiname = Dir(Pfad & "*" & teil & "*.xls")

    Do While Dateiname <> ""

        Workbooks.Open (Pfad & Dateiname)

    Dateiname = Dir()

    Loop

 End Sub

Grüße
Silcono

Danke funktioniert einwandfrei Blush

Simson118

silcono

Simson118