Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1628to1632
1628to1632
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bestimmte Dateinamen von Ordner A in B kopieren

Forumthread: Bestimmte Dateinamen von Ordner A in B kopieren

Bestimmte Dateinamen von Ordner A in B kopieren
19.06.2018 12:50:58
Ordner
Hallo Zusammen,
bisher konnte ich Online nichts finden und benötige eure Unterstützung.
In Ordner "A" habe ich 18.000 PDF Dateien. Ich habe diesen Ordner ausgelesen und nur die Dateien übrig gelassen die ich benötige das sind ca. 650 Dateien, diese möchte ich jetzt in einen anderen Ordner kopieren...
So sieht das im Ordner "A" auf:
17111-2018-06-0851.pdf
70103-2018-06-0829.pdf
79118-2018-06-0828.pdf
17113-2018-06-0822.pdf
89554-2018-05-2916.pdf
67003-2018-05-2828.pdf
67001-2018-05-2815.pdf
Vielen Dank vorab für eure Unterstützung.
Anzeige

13
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Und Hilfe brauchst Du jetzt wobei?
19.06.2018 13:16:53
Michael
Hallo!
Es wäre im Übrigen vermutlich hilfreich, wenn Du uns die Systematik der zu verschiebenden Dateien aufzeigst - falls es Dir darum geht, diese per Excel-VBA zu verschieben...
LG
Michael
Google hilft...
19.06.2018 13:23:20
MCO
https://www.google.de/search?ei=TecoW8LTDIjbUeStrogB&q=move+file+per+vba&oq=move+file+per+vba&gs_l=psy-ab.3...2941.3313.0.3560.0.0.0.0.0.0.0.0..0.0....0...1.1.64.psy-ab..0.0.0....0.0zMmAi9Nh5A
Gruß, MCO
Anzeige
AW: Google hilft...
19.06.2018 14:05:22
Rudi
Also,
ich möchte aus dem Ordner die 650 Dateien rauskopieren. Wie schon gesagt in dem Ordner sind 18.000 Dateien, ich kann die leider nicht nach diesen 650 Filtern, da alle eine anderen Bezeichnung haben...
Ich will aus diesen 18.000 Dateien nur die 650 Dateien in Ordner "B" kopieren
AW: Google hilft...
19.06.2018 14:09:01
Torsten
oh dann hab ich das missverstanden. mein code kopiert alle pdfs.
Anzeige
AW: Google hilft...
19.06.2018 14:11:00
Torsten
weitere Frage: Kennst du alle benoetigten Dateinamen?
AW: Google hilft...
19.06.2018 14:12:10
Rudi
Hi,
ja ich kenne alle benötigten Dateinamen.
AW: Google hilft...
19.06.2018 14:12:10
Rudi
Hi,
ja ich kenne alle benötigten Dateinamen.
Anzeige
AW: Google hilft...
19.06.2018 14:12:10
Rudi
Hi,
ja ich kenne alle benötigten Dateinamen.
AW: Google hilft...
19.06.2018 14:58:20
Torsten
Also nochmal hallo Rudi,
anbei eine Datei, mit der du das ganze bewerkstelligen kannst. Die Dateinamen sind im Sheet1 in Spalte A hinterlegt. Der Code arbeitet alle Zeilen in der benutzten Range ab und kopiert alle PDFs in den Zielordner. Du kannst also, wenn noetig, die Liste erweitern. Habe zum Ausloesen einen Button in Sheet1 eingefuegt.
Die Zeile 
Kill strQuelle & sDatei

benutzt du nur, wenn du die kopierten Dateien im Quellordner loeschen willst. Dann einfach das Hochkomma for der Codezeile entfernen.
Quell und Zielordner musst du natuerlich noch anpassen.
Wenn du noch Fragen hast, komm auf mich zurueck.
https://www.herber.de/bbs/user/122181.xlsm
Gruss Torsten
Anzeige
AW: Google hilft...
19.06.2018 15:06:59
Rudi
WOW! Vielen Dank. Funktioniert super.
Danke Danke
AW: Google hilft...
19.06.2018 15:10:21
Torsten
Gerne. Viel Spass
AW: Bestimmte Dateinamen von Ordner A in B kopieren
19.06.2018 13:34:26
Ordner
Also ich vermute mal, dass du die Dateien per VBA code kopieren willst?
Hier mal ein Beispiel, aber ohne Pruefung, ob die Datei im Zielordner schon vorhanden ist:
Option Explicit
Sub kopieren_pdf()
Dim strQuelle As String
Dim strZiel As String
Dim strDatei As String
strQuelle = "C:\Dein Quellpfad\"
strZiel = "C:\Dein Zielpfad\"
strDatei = Dir(strQuelle & "*.pdf")
Do While strDatei  ""
FileCopy strQuelle & strDatei, strZiel & strDatei
strDatei = Dir()
Loop
End Sub

Danke fuer Rueckmeldung, obs funktioniert hat.
Gruss Torsten
Anzeige

Forumthreads zu verwandten Themen

Datein aus Ordner in Listbox
Markus

Hallo,
brauch wieder mal eure Hilfe.
Möchte über ein UserForm nach bestimmte Dateien eines Ordners inkl. Unterordner suchen.
Button: Ordner wählen öffnet Msg Box such dort mein Ordner aus klappt schon.
Public Type BROWSEINFO
hOwner As Long
pidlRoot As Long
pszDispla...
30.09.2008 12:45:47
Thread-ID: 1013354
2 Beiträge
Dateinamen aus Verzeichnis nach Excel kopieren
obelix-xxl

Hallo,
nachfolgenden Makro habe ich bei der Suche hier im Forum gefunden.
Es wäre schön, wenn mir Unterstützung geboten würde.
Für meinen Anwendungsfall benötige ich in einer Afrage, die
1.) Abfrage nach dem Unterverzeichnis im dem die zu kopierenden Dateinnamen stehen (Padangab...
08.10.2008 11:35:00
Thread-ID: 1014978
3 Beiträge
Dateinamen-Übertrag aus Verzeichnis in Excelspalte
Joerschi

Hallo liebe Excel-Freunde,
folgendes Excel-Problem kann ich nicht lösen:
ich möchte aus einem beliebigen Verzeichnis auf meiner Festplatte die vollständigen Namen aller darin enthaltenen Dateien in eine Excel-Tabelle übertragen. Die Sortierung sollte dabei alphabetisch/nummerisch aufste...
10.10.2008 14:46:00
Thread-ID: 1015594
9 Beiträge
Dateinamen aus Zelle mit Bedingung
Daniel

Hallo Leute,
ich brauche mal wieder Eure Hilfe:
Mit dem folgenden Makro (hier aus dem Forum) bilde ich den Dateinamen aus dem Zellinhalt; das klappt soweit ganz gut:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Cancel = True Application.EnableEvent...
18.12.2008 14:02:47
Thread-ID: 1033865
3 Beiträge
Anzeige
Auslesen Ordnerinhalte
Thomas

Hallo zusammen,
ich habe folgendes Problem und bitte um Hilfe.
Ich will eine Datei erstellen die Ordnerinhalte wiedergeben soll.
Beispiel:
Es gibt einen Datei-Ordner "Kunden", der beinhaltet weitere Ordner die nach Städten sortiert sind. In den Städteordnern befinden sich Exceld...
19.12.2008 22:25:05
Thread-ID: 1034294
21 Beiträge
Dateinamen auslesen (aus Ordnernamen in Spalte)
Tobias

Dieses Script sollte eine Dateiliste erstellen, wenn der Ordner- bzw. Verzeichnisname in der Spalte A steht.
Quelle: https://www.herber.de/mailing/072499h.htm
Ich bekomme aber Laufzeitfehler 445. Objekt unterstützt diese Aktion nicht.
Woran kann das liegen? Benutze Excel 2007
08.02.2009 21:31:46
Thread-ID: 1048494
6 Beiträge
Anzeige
Worddateien in Ordner auslesen
Dirk

Hallo Excelgemeinde!
Ich brauche eure Hilfe!!!!
Ich habe folgendes Problem:
Ich muß bestimmte Daten aus allen vorhandenen Word Dokumenten in einem Verzeichnis (inkl. Unterverzeichnisse) auslesen. Ich habe bereits eine Exceldatei mit der ich eine Worddatei in einem Verzeichnis auswäh...
14.03.2009 19:39:18
Thread-ID: 1060243
7 Beiträge
Umbenennen von Windows-Ordnern aus VBA
Windows-Ordnern

Hallo!
Ich habe ein Problem mit umbenennen von Windows-Ordnern aus VBA.
In einem Ordner befinden sich viele Vorlagen-Ordner z.B Vorlage1, Vorlage2 usw.
Wie kann man immer den ersten (alphabetisch) Vorlage-Ordner zur Laufzeit umbenennen.
Da ich ja den vollen Ordnernamen vorher ni...
07.04.2009 13:21:31
Thread-ID: 1067383
8 Beiträge
Dateinamen aus .rar auslesen
Jochen

Hallo zusammen,
in den letzten Tagen habe ich mein Archiv an Anleitungen etc. mal gepackt und zwar alphabetisch (also ein Archiv "A.rar", eins "B.rar" ...) Was ich vorher nicht bedacht hatte: Ohne Inhaltsverzeichnis, weiß ich nicht, ob ich z.B. die ISBN-FAQ unter "T" Telefon oder unter "I"...
18.04.2009 11:53:30
Thread-ID: 1069463
3 Beiträge
Excel Dateien aus Ordner auslesen (Fragebogen)
Bene

Hallo zusammen!
Ich schreibe momentan an meiner Diplomarbeit und brauche in dem Zusammenhang unbedingt eure Unterstützung in Sachen VBA-Programmierung.
Ich habe nicht wirklich Ahnung von VBA und bastel jetzt schon seit einer ganzen Weile an meinem Problem herum. Im Forum konnte ich lei...
05.08.2009 11:36:40
Thread-ID: 1093693
6 Beiträge
Ordner auswählen und dateinamen in listbox eintrag
Thomas

Hallo VBAler
Besteht die Möglichkeit über einen Button den Ordnerdialog aufzurufen, einen Ordner auswählen und anschließend die Dateinamen in diesem Ordner in eine Listbox einzutragen.
Ziel ist es dann in der Listbox einen Eintrag auszuwählen und über einen weiteren Button diese Dateie...
03.12.2009 14:06:51
Thread-ID: 1121529
2 Beiträge
Anzeige
Dateinamen+Pfade auslesen und in neues Tabellenbl.
Helmut

hallo liebe vba'ler,
ich habe schon im online-archiv nachgesehen, aber nichts genau passendes für mein "problem" gefunden, obwohl das thema oft behandelt wurde.
ich möchte aus einem verzeichnis, auch aus einer partition (also z.b. komplettes laufwerk c:), alle dateien mit einer bestimmt...
16.03.2010 10:20:46
Thread-ID: 1146119
13 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Bestimmte Dateinamen von Ordner A in B kopieren

Schritt-für-Schritt-Anleitung

  1. Dateinamen vorbereiten: Erstelle eine Liste der benötigten Dateinamen in einer Excel-Datei. Diese Liste wird später verwendet, um die Dateien zu filtern. Du kannst die Dateinamen in Spalte A eingeben.

  2. VBA-Editor öffnen: Drücke ALT + F11, um den VBA-Editor in Excel zu öffnen.

  3. Neues Modul erstellen: Klicke auf „Einfügen“ und wähle „Modul“. Dort kannst du den VBA-Code einfügen.

  4. VBA-Code einfügen: Nutze den folgenden VBA-Code, um die Dateien zu kopieren:

    Option Explicit

Sub kopieren_pdf()
   Dim strQuelle As String
   Dim strZiel As String
   Dim strDatei As String
   Dim ws As Worksheet
   Dim lastRow As Long
   Dim i As Long

   strQuelle = "C:\Dein Quellpfad\" ' Quellordner anpassen
   strZiel = "C:\Dein Zielpfad\" ' Zielordner anpassen
   Set ws = ThisWorkbook.Sheets("Sheet1") ' Name des Arbeitsblattes

   lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row ' letzte Zeile in Spalte A

   For i = 1 To lastRow
       strDatei = ws.Cells(i, 1).Value
       If Dir(strQuelle & strDatei) <> "" Then
           FileCopy strQuelle & strDatei, strZiel & strDatei
       End If
   Next i
End Sub

  5. Makro ausführen: Schließe den VBA-Editor und führe das Makro aus, um die Dateien zu kopieren.

Häufige Fehler und Lösungen

  • Fehler: Datei nicht gefunden
    Lösung: Stelle sicher, dass der Dateiname in der Excel-Liste exakt mit dem im Quellordner übereinstimmt, inklusive der Dateiendung.

  • Fehler: Berechtigungen
    Lösung: Überprüfe die Zugriffsrechte auf die Ordner. Du benötigst Schreibrechte im Zielordner.

  • Fehler: Makro funktioniert nicht
    Lösung: Aktiviere die Makros in Excel unter „Datei“ > „Optionen“ > „Trust Center“ > „Einstellungen für das Trust Center“.

Alternative Methoden

  • Power Query: Mit Power Query kannst du auch Daten aus Ordnern importieren und die Dateinamen in Excel auslesen. Dies ist eine benutzerfreundliche Methode, die keine Programmierkenntnisse erfordert.

  • Batch-Skripte: Für fortgeschrittene Benutzer kann ein einfaches Batch-Skript verwendet werden, um mehrere Dateinamen kopieren zu lassen.

Praktische Beispiele

  • Beispiel 1: Angenommen, du hast eine Liste von 10 Dateinamen in Sheet1 von A1 bis A10 und möchtest diese aus einem Ordner mit 18.000 PDF-Dateien kopieren. Der obige VBA-Code automatisiert den Prozess und spart dir viel Zeit.

  • Beispiel 2: Wenn du nur die Dateinamen der PDFs in Excel auflisten möchtest, kann der Code entsprechend angepasst werden, um die Dateinamen aus dem Ordner auszulesen und in eine Excel-Liste einzufügen.

Tipps für Profis

  • Verwende Fehlerbehandlung im VBA-Code: Füge On Error Resume Next ein, um Fehler elegant zu handhaben, falls eine Datei nicht gefunden wird.

  • Automatisiere das Kopieren von Dateinamen: Nutze eine Excel-Formel oder VBA, um automatisch alle Dateinamen aus einem Ordner zu listen, bevor du die gewünschten Dateien kopierst.

FAQ: Häufige Fragen

1. Wie kann ich die Dateinamen in Excel kopieren?
Du kannst die Dateinamen direkt in eine Excel-Tabelle eingeben oder sie mit einem VBA-Skript auslesen.

2. Kann ich auch andere Dateiformate kopieren?
Ja, passe den Dateityp im VBA-Code an, z.B. *.docx für Word-Dokumente oder *.jpg für Bilder.

3. Was mache ich, wenn ich die Dateinamen in einen anderen Ordner kopieren möchte?
Ändere einfach den strZiel-Pfad im VBA-Code auf den gewünschten Zielordner.

4. Ist es möglich, mehrere Dateinamen gleichzeitig in Excel einzufügen?
Ja, du kannst mehrere Dateinamen in der Excel-Liste eingeben und der VBA-Code wird sie alle nacheinander verarbeiten.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige