Hallo, ich habe eine ein Tabellenblatt mit Spalte A wo fünfstellige Nummer sind...Beispiel
A
10000
10002
10003
Es sind im Order C:\Test Dateien vorhanden wie
RG10000_01.01.2024.pdf
RG10004_10.01.2024.pdf

Ich würde gern nur die Dateien die die Zahlen von Spalte A enthalten in einen anderen Ordner kopieren,
Beispiel...ob wäre es nur die RG10000_01.01.2024.pdf da die 10004 nicht in der Spalte A ist.

C:\Test-Neu
RG10000_01.01.2024.pdf
____________________________________

Hallo


so?

Sub Kopieren()
Dim PfA As String, PfN As String, SP As Integer, Z1 As Integer, Z As Long, LR As Long, NName As String

SP = 1 'Spalte A
Z1 = 1 'Keine Überschrift
PfA = "C:\Test Dateien vorhanden\"
PfN = "C:\Test-Neu\"

If Dir(PfA, vbDirectory) = "" Then
MsgBox "Quellverzeichnis nicht vorhanden"
Exit Sub
End If
If Dir(PfN, vbDirectory) = "" Then
'MsgBox "Zielverzeichnis nicht vorhanden"
MkDir PfN
End If

With Sheets("Tabelle1")
LR = .Cells(.Rows.Count, SP).End(xlUp).Row 'letzte Zeile der Spalte

For Z = Z1 To LR
NName = Dir(PfA & "*" & .Cells(Z, SP) & "*.pdf")
If NName > "" Then
FileCopy PfA & NName, PfN & NName

End If
Next
End With
End Sub
__________________________

Leider kopiert er nur die 1. gefundene Datei von der Suche

Es gibt teilweise mehrere Dateien

Beispiel:
RG10000_01.01.2024.pdf
RG10000_02.01.2024.pdf
RG10000_05.01.2024.pdf

im Zielordner ist nur die 1. gefundene
RG10000_01.01.2024.pdf

Schön wäre es wenn alle kopiert werden die "gefunden" werden