Dateinamen suchen über Zelleninhalt

Computer: Software & Programmierung Visual Basic
#1

Hallo zusammen.
Ich habe ein Problem wo ich noch keine richtige Lösung gefunden habe.

Ich habe einen Code in dem ich eine Datei die ich über einen Suchbegriff suchen und öffnen tu.

Hier mal der Code:
Sub (Datei suchen und öffnen)

Dim Dateinmame As String
Dim Suchbegriff As String
Dim Pfad As String

Pfad = "S:\Info\"
Suchbegriff = "50"

Dateinmame = Dir(Pfad & "*" & Suchbegriff & "*.xlsm")
If Dateinmame <> "" Then
    Workbooks.Open Pfad & Dateinmame
End If

Hier wird jetzt eine Datei in dem angegebenen Verzeichnis mit der 50 im Dateinamen gesucht.

Ich will aber bei Suchbegriff gern den Verweis auf eine Zelle haben in dem drin steht nach welchen Dateinameninhalt gesucht werden soll.

Ich habe am Ende 52 Dateien (für jede Kalenderwochen eine)
Und eine Datei in der ich anhand der aktuellen Kalenderwoche die in Bsp. Zelle J1 steht über die Suchfunktion die Datei mit der Kalenderwoche 50 im Dateinamen öffnen und Daten rüberkopieren.

Wäre super wenn es hierfür eine Lösung gibt.

Mit freundlichen Grüßen
Euer Sumpfbiber

#2 
'Zuerst in Extras/Verweise/Durchsuchen die "c:\Windows\System32\wshom.ocx" suchen und aktivieren
Dim FSO As New FileSystemObject

Sub OpenFile()
 Dim Pfad$, Suchbegriff$, Datei As File
 Pfad = Range("A2")
 Suchbegriff = Range("B2")
 For Each Datei In FSO.GetFolder(Pfad).Files
  If UCase(Datei.Name) Like UCase("*" & Suchbegriff & "*.xls") Then
   Workbooks.Open Pfad & Dateinmame
   Exit For
  End If
 Next Datei
End Sub

Bin nicht sicher ob’s das ist was du brauchst, aber müsste funktionieren. Gruss Thomas