Hallo zusammen,

ich habe ein kleines Probleme und zwar wenn ich in P2 denn Wert 947 eingebe wird die Datei 945 geöffnet, da er nicht nach allen 3 stellen sucht sondern die erst beste
nimmt. Es müssten alle 3 werte übereinstimmen.


Meine Dateinamen haben folgendes Format:
Vorname Nachname_2023 -945
Vorname Nachname_2023 -946
Vorname Nachname_2023 -947

Private Sub Suchen ()
Dim Dateinmame As String
Dim Suchbegriff As String
Dim Pfad As String

I = P2 'Suchfeld im Tabellenblatt


Pfad = "C:\Users\psalm\OneDrive\Desktop\Offert_2023\Offert_2023_Excel\"
Suchbegriff = I
Dateinmame = Dir(Pfad & "*" & "_2023" & Suchbegriff & "*.xls")
If Dateinmame > "" Then
Workbooks.Open Pfad & Dateinmame
Else

MsgBox "Nicht gefunden"

End If
End Sub

Bitte um Hilfe Danke