Hallo,

Ich komme leider nicht weiter mit meiner Suchfunktion.

Ziel ist das eine Datei vom Laufwerk gesucht wird und automatisch geöffnet wird.

Namensformat der Datei: "Name_2023-10999-1"

in A2 steht "_2023"
in B2 steht "-"
in C2 steht "10999"
in D2 steht "-"
in E2 steht "1"

C2 wird jedes mal geändert beim suchen, Rest wird seltener geändert.

Bis jetzt habe ich es mit einem Suchkriterium geschafft, aber nicht mit 5.

Sub Suchen_fuer_Auftragsbestaetigung()

Dim Dateinmame$, Suchbegriff$, Pfad$, i$,

i = Tabelle1.Range("C2") 'Suchfeld im Tabellenblatt

Pfad = "S:Dispo KranOffert_2023Offert_2023_PDFOffert_2023_Excel"
Suchbegriff = i

If i > "" Then Dateinmame = Dir(Pfad & "*" & "_2023 -" & Suchbegriff & "*.xls")
If Dateinmame > "" Then
Workbooks.Open Pfad & Dateinmame
Else
MsgBox "Nicht gefunden"
End If

End Sub

Ich bitte um Tipps und Hilfe.

Schöne Grüße
Patrick