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