Hallo Ralf,
vielen Dank für die Antwort!
Ich habe es mit deinem Hinweis jetzt mit der Right funktion lösen können.
If Right(ws_Quelle.Cells(1, 1), 5) = "2.txt" Then ws_Ziel.Cells(1,1) = ws_Quelle.Cells(1,1) End If
Gruß Lukas