Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
13.10.2025 19:31:31
VBA Formel mit Bezug auf Überschrift anstatt Spalte
13.10.2025 15:10:17
Überlappende Zeiträume über mehrere Tabellen mit leeren Zell
13.10.2025 13:34:56
PQ Abfrage mit verschiedenen Werten ausführen + Protokoll
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1744to1748
1744to1748
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Dateien verschieben in Schleife

Forumthread: Dateien verschieben in Schleife

Dateien verschieben in Schleife
13.03.2020 13:26:59
FrankH
Moin, ich habe folgendes Thema.
ich habe einen Ordner mit Dateien, per Button werden die Dateiname in Sheet(Dateien) in Spalte 1 eingelesen.
Die Liste wird nun manuell mit weiteren Infos aufgefüllt, ein neuer Name in Spalte 3 generiert und per Button werden die Dateien umbenannt .
Nach erfolgreicher Umbenennung erscheint eine Messagebox und fragt, ob die Dateien nun verschoben werden sollen.
Bis hierher funktioniert es.
Die Dateien sollen nun entsprechend der Liste (Zeilen i) nacheinander in bestimmte Ordner verschoben werden, die Ordnernamen befinden sich in Spalte 10 und Spalte 11.
Problem ist nun, dass nur eine Datei verschoben wird, danach kommt die Meldung "Laufzeitfehler '53' Datei nicht gefunden" und der Debugger zeigt auf "FSO.MoveFile Quelle, Ziel".
Was kann es sein, warum wird nicht die nächste folgende Datei verschoben?
'Dateien verschieben
If MsgBox("Umbenennen beendet, Dateien jetzt verschieben?", vbYesNo + vbQuestion) = vbYes Then
'Da Spaltenueberschrift beginne in Zeile 2
i = 2
Quelle = Range("Ordner") & "\" & sh.Cells(i, 3)
If Dir(Quelle) = "" Then
MsgBox "Keine Dateien vorhanden!"
Else
Set sh = Sheets("Dateien")
Ziel = "C:\Testordner2\" & sh.Cells(i, 10) & "\" & sh.Cells(i, 11) & "\"
Set FSO = CreateObject("Scripting.FileSystemObject")
Do
FSO.MoveFile Quelle, Ziel
'Set FSO = Nothing
i = i + 1
Loop Until Range("Ordner") = ""
MsgBox "Dateien wurden verschoben"
End If
End If
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dateien verschieben in Schleife
13.03.2020 14:02:55
EtoPHG
Hallo Frank
Du setzt die Variable Quelle & Ziel genau 1mal
Der Do für die Iteration ist viel zu weit unten im Code, er gehört vor das Setzen der Quelle
Gruess Hansueli
AW: Dateien verschieben in Schleife
13.03.2020 14:03:58
UweD
Hallo
ungetestet.....
Ziel (I) muss doch hochzählen. Deshalb innerhalb die Do /Loop Schleife.
    'Dateien verschieben 
    If MsgBox("Umbenennen beendet, Dateien jetzt verschieben?", vbYesNo + vbQuestion) = vbYes Then
        'Da Spaltenueberschrift beginne in Zeile 2 
        i = 2
        Quelle = Range("Ordner") & "\" & sh.Cells(i, 3)
        If Dir(Quelle) = "" Then
            MsgBox "Keine Dateien vorhanden!"
        Else
            Set sh = Sheets("Dateien")
            Set FSO = CreateObject("Scripting.FileSystemObject")
            Do
                Ziel = "C:\Testordner2\" & sh.Cells(i, 10) & "\" & sh.Cells(i, 11) & "\"
                FSO.MoveFile Quelle, Ziel
                'Set FSO = Nothing 
                i = i + 1
            Loop Until Range("Ordner") = ""
            MsgBox "Dateien wurden verschoben"
        End If
        
    End If

LG UweD
Anzeige
AW: Dateien verschieben in Schleife
13.03.2020 14:09:52
UweD
Gilt ja auch für Quelle...
Musst du komplett umbauen
AW: Dateien verschieben in Schleife
13.03.2020 14:15:28
FrankH
Vielen Dank für den Hinweis, ich versuche mal es hinzubekommen.
AW: Dateien verschieben in Schleife
13.03.2020 16:51:19
FrankH
Vielen Dank, hat funktioniert!
Anzeige
Danke für die Rückmeldung. (owT)
16.03.2020 09:49:24
UweD
;

Forumthreads zu verwandten Themen

FTP: Die Datei in den gleichen Ordner imopt.
Edie

Hallo zusammen,
habe im Archiv nachfolgende Code gefunden. Es wird per FTP eine Textdatei vom Server
runtergeladen. Dabei sollte die Textdatei in den gleichen Ordner importiert werden, dazu habe
ich den Code etwas angepasst mit: Dim Path$ und Path = ThisWorkbook.Path
In der Lo...
17.11.2008 20:22:40
Thread-ID: 1025395
4 Beiträge
Anzeige
Dateien löschen auch in Unterordner
Andre´

Hallo alle zusammen,
Ich möchte alle TXT-Dateien löschen die sich unter:
C:\Backup\Jahr
befinden aber nur wenn diese älter als 60 Tage sind.
Dabei sollen auch alle Unterordner falls vorhanden durchsucht werden.
Ich hoffe mir kann jemand helfen.
Vielen Dank im Voraus!
...
16.01.2009 12:10:00
Thread-ID: 1040526
12 Beiträge
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
Anzeige
Alle Dateien eines Ordners öffnen
Florian

Hallo liebes Forum,
habe wieder mal eine Frage:
wie kann ich alle Workbooks in einem [bestimmten] Ordner ansprechen? Der Pfad ist mir dabei nur teilweise bekannt, d.h. ich kenne den genauen Anfang des Pfades nicht (dieser ändert sich mit jedem Durchlauf). Das Ende des Pfades ist mir wie...
07.04.2009 15:04:17
Thread-ID: 1067433
2 Beiträge
Dateien in Ordner bewegen
Claudia

Hallo zusammen,
ich stehe vor einer unlösbaren Aufgabe. Bleibt sie ungelöst, bin ich der "A..... der Welt" und muss das händisch machen.
Also ich beschreibe mein Problem.
Es gibt einen Ordner "Kundenverträge" (Pfad ist ja erst einmal egal, den müsste ich ohnehin noch anpassen).
...
17.04.2009 17:14:40
Thread-ID: 1069345
15 Beiträge
xls Datei in Unterordnern suchen und öffnen
Markus

Hallo zusammen,
ich habe ein kleines Makro geschrieben, was mir eine Excel-Datei in einem Ordner suchen soll und diese dann öffnet. Das funktioniert auch soweit. Jetzt möchte ich aber die Unterordner, die sich in diesem Ordner befinden, einbinden. Leider bekomm ich es nicht hin.
Hier m...
28.04.2009 15:55:22
Thread-ID: 1071656
5 Beiträge
Anzeige
PPT verschieben falls Artikel nicht in Datei
hp

Hallo Leute,
habe in Spalte "B" tägliche neue Artikelnummern Bsp.: 0030014711 oder 051231.
In Ordner "\\vaders10\et2\servicegrad\shortfall psps" liegen .ppt Dateien, die als Namen auch eine Artikelnummer haben Bsp.: 0030014711.ppt
Wenn die Artkelnummer der ppt Datei nicht in Spalte...
14.07.2009 15:55:07
Thread-ID: 1088494
18 Beiträge
Outlook Lesebestätigung in Ordner verschieben?
Jessi

Hallo zusammen,
habe folgenden Code für das Verschieben von gelesenen Lesebestätigungen in meinem Outlook Ordner. Leider funktioniert diese nicht:
Code: Private Sub Application_NewMail() On Error Resume Next ' Variablen deklarieren Dim objInboxFolder As MAPIFolder ' Post...
13.08.2009 13:38:35
Thread-ID: 1095538
4 Beiträge
mehrere CSV-Dateien in einem Ordner splitten
Teck

Hallo Excel Experten,
auch nach stundenlangem Suchen auf diversen Excel-Seiten, bin ich leider nicht auf eine Lösung meines Problems gestoßen.
Mein Ziel ist es, mehrere CSV Dateien, die möglicherweise Überlänge haben (mehr als 65.536 Zeilen), aber alle in einem Ordner gespeichert sind,...
19.08.2009 13:00:31
Thread-ID: 1097079
4 Beiträge
Anzahl dateien in einem Ordner
Christian

Hallo alle zusammen,
würde mich freuen, wenn Ihr mir mal wieder aus der Patsche helfen könntet. Habe folgendes Problem.
Würde wissen wieviele Dateien eines bestimmten Typs wie z.B *.tra in einem Ornder sind. Wie kann ich das machen?
Gruß Christian
07.09.2009 17:09:36
Thread-ID: 1101067
2 Beiträge
Umbenennen von Dateien in einem Ordner
Dateien

Hallo,
ich habe folgende Frage:
Ich nutze Excel 2007.
Ich habe einen Ordner mit über 100 Excel-Dateien. Diese sollen so umbenannt werden, daß an den vorhandenen und unterschiedlich langen Dateinamen vier Buchstaben angehangen werden sollen.
Gibt es eine Möglichkeit dieses zu aut...
04.06.2010 13:20:53
Thread-ID: 1160328
4 Beiträge
alle Dateien in einem Ordner umbenennen
Joachim

Hallo,
ich hab in einem Ordner ca. 400 pdf-Files. Diese muss ich jetzt umbenennen. Die Dateinamen beginnen immer gleich, erst 7 Zeichen, dann eine 14-stellige Nummer, dann der Rest, der aber unterschiedlich lang sein kann. Ich muss nun aus der 14-stelligen Nummer eine 15-stellige machen, sp...
02.08.2010 11:07:41
Thread-ID: 1169991
23 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Dateien in Excel mit VBA verschieben

Schritt-für-Schritt-Anleitung

  1. Vorbereitung der Excel-Datei: Stelle sicher, dass die Datei, die Du verschieben möchtest, in einem bestimmten Ordner liegt. Der Pfad zu diesem Ordner sollte in der Zelle "Ordner" in Deinem Excel-Sheet stehen.

  2. Umbenennen der Dateien: Verwende einen Button, um die Dateinamen in das Sheet zu importieren. Die neuen Namen sollten in Spalte 3 stehen.

  3. VBA-Code zum Verschieben der Dateien: Kopiere den folgenden VBA-Code in ein Modul:

    Sub DateienVerschieben()
   Dim i As Long
   Dim Quelle As String
   Dim Ziel As String
   Dim FSO As Object
   Set FSO = CreateObject("Scripting.FileSystemObject")

   If MsgBox("Umbenennen beendet, Dateien jetzt verschieben?", vbYesNo + vbQuestion) = vbYes Then
       i = 2
       Do
           Quelle = Range("Ordner") & "\" & Sheets("Dateien").Cells(i, 3)
           If Dir(Quelle) = "" Then
               MsgBox "Keine Dateien vorhanden!"
               Exit Sub
           End If
           Ziel = "C:\Testordner2\" & Sheets("Dateien").Cells(i, 10) & "\" & Sheets("Dateien").Cells(i, 11) & "\"
           FSO.MoveFile Quelle, Ziel
           i = i + 1
       Loop Until Sheets("Dateien").Cells(i, 3) = ""
       MsgBox "Dateien wurden verschoben"
   End If
End Sub

  4. Ausführen des Codes: Klicke auf den Button, um die Dateien entsprechend der Liste zu verschieben.

Häufige Fehler und Lösungen

  • Fehler 53: Datei nicht gefunden: Dieser Fehler tritt auf, wenn die Quelldatei nicht vorhanden ist. Überprüfe den Pfad und die Dateinamen in Spalte 3.
  • Loop-Ende nicht erreicht: Stelle sicher, dass die Schleife korrekt formuliert ist. Der Code sollte so strukturiert sein, dass die Bedingung für das Ende der Schleife richtig gesetzt ist.

Alternative Methoden

Falls Du nicht mit VBA arbeiten möchtest, kannst Du die Dateien auch manuell verschieben oder ein Makro in Excel aufzeichnen, um den Prozess zu automatisieren. Eine andere Möglichkeit ist die Verwendung von Power Query, um Daten zu importieren und zu verschieben.

Praktische Beispiele

Hier ein Beispiel für den Code, um mehrere Dateien in einer Schleife zu verschieben:

Dim i As Long
For i = 2 To 10 ' Beispiel für 10 Zeilen
    ' Hier den Code zum Verschieben der Datei einfügen
Next i

Du kannst die Schleife anpassen, um so viele Dateien zu verschieben, wie Du benötigst.

Tipps für Profis

  • FSO-Objekt: Verwende das FSO-Objekt, um sicherzustellen, dass Dateien korrekt verschoben werden. FSO.MoveFile ist der Befehl, den Du dafür benötigst.
  • Fehlerbehandlung: Implementiere eine Fehlerbehandlung, um unerwartete Fehler während des Verschiebeprozesses abzufangen. Nutze On Error Resume Next, um Fehler zu ignorieren, und informiere den Benutzer über spezifische Probleme.

FAQ: Häufige Fragen

1. Wie kann ich den Pfad dynamisch anpassen?
Du kannst den Pfad für die Quelldatei in einer Zelle speichern und im VBA-Code auf diese Zelle verweisen.

2. Was mache ich, wenn der Zielordner nicht existiert?
Überprüfe, ob der Zielordner existiert, bevor Du versuchst, die Datei dorthin zu verschieben. Du kannst diesen mit FSO.CreateFolder erstellen, falls er nicht vorhanden ist.

3. Wie viele Dateien kann ich gleichzeitig verschieben?
Das hängt von der Schleifenstruktur ab. In der Regel kannst Du so viele Dateien wie nötig verschieben, solange Du den Code entsprechend anpasst.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige