Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Werte aus Spalten -> Datein suchen kopieren

Werte aus Spalten -> Datein suchen kopieren
07.11.2024 11:57:25
Rocco
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

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Werte aus Spalten -> Datein suchen kopieren
07.11.2024 13:06:50
UweD
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


LG UweD
Anzeige
AW: Werte aus Spalten -> Datein suchen kopieren
14.11.2024 12:05:03
Rocco
Vielen Dank nochmal...kleines Problem...es gibt mehrere Dateien pro Suchbegriff...es wird nur immer eine Datei kopiert

Beispiel:

RG10000_01.01.2024.pdf
RG10000_02.01.2024.pdf
RG10000_05.01.2024.pdf

im neuen Ordner ist dann nur die RG10000_01.01.2024.pdf anstatt alle 3
Anzeige
AW: Werte aus Spalten -> Datein suchen kopieren
14.11.2024 12:15:08
Rocco
Hallo, vielen Dank nochmal...ein kleines Problem gibt es noch...

Es gibt für den Suchbegriff manchmal mehrere Dateien und es wird leider nur eine kopiert.

Beispiel

RG10000_01.01.2024.pdf
RG10000_02.01.2024.pdf
RG10000_03.01.2024.pdf

Im Ziel Ordner ist dann nur die 1. gefunden Datei kopiert.

RG10000_01.01.2024.pdf
Anzeige

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige