Thema Datum  Von Nutzer Rating
Antwort
Rot Dateinamen in Pfad ändern inkl. SVerweis
11.12.2023 14:05:22 Parker
Solved
12.12.2023 01:00:24 ralf_b
NotSolved
13.12.2023 12:49:53 Gast57085
NotSolved
13.12.2023 13:02:11 Gast20190
NotSolved
14.12.2023 22:52:12 ralf_b
NotSolved

Ansicht des Beitrags:
Von:
Parker
Datum:
11.12.2023 14:05:22
Views:
558
Rating: Antwort:
 Nein
Thema:
Dateinamen in Pfad ändern inkl. SVerweis

Hallo zusammen,

ich habe mir ein Video angeschaut, in dem Dateinamen mit einem Makro geändert werden. Dabei ging es in dem Video nur um einen Teil des Namens, der immer wiederkehrend ist, was noch recht einfach ist. Ich habe Musik/Video-Titel, die fortlaufende Nummern haben und möchte sie gerne mit dem korrekten Namen umbenennen.

Dazu habe ich:

  • Pfad in A1
  • Alle Dateinamen in Spalte D2:D292 eingetragen und in Spalte E2:E292 alle neuen Namen zur Umbenennung
  • Das Makro soll nun (in Schleife) jeden Namen mittels SVerweis in Zelle B1 ausgeben und anschließend im Pfad ersetzten

Option Explicit

Sub Ordner_Auslesen()

'Bibliothek aktivieren

'Variablen dimensionieren
Dim fso As New FileSystemObject
Dim Pfad As String
Dim Ordner As Files
Dim Datei As File

'Pfad auslesen
Pfad = ActiveSheet.Range("A1").Value

'Existiert der Ordner?
If fso.FolderExists(Pfad) Then

'Alle Dateien des Ordners einlesen
Set Ordner = fso.getfolder(Pfad).Files

'Schleife über alle Dateien des Ordners
For Each Datei In Ordner

'Datei Ausgeben
Debug.Print Datei.Name

'Datei umbenenn

'Versuch 1

If InStr(Datei.Name, ActiveSheet.Range("D2:D292")) <> 0 Then

Datei.Name(B1) = WorksheetFunction.VLookup(Datei.Name, ActiveSheet.[D2:D292], 1, False)

'Datei.Name = Replace(Datei.Name, , ActiveSheet.Range("B1"))

'End If

Next Datei

Else

MsgBox "Dieser Ordner existiert nicht."

End If


End Sub

Hier muss irgendein Fehler drin sein.


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Dateinamen in Pfad ändern inkl. SVerweis
11.12.2023 14:05:22 Parker
Solved
12.12.2023 01:00:24 ralf_b
NotSolved
13.12.2023 12:49:53 Gast57085
NotSolved
13.12.2023 13:02:11 Gast20190
NotSolved
14.12.2023 22:52:12 ralf_b
NotSolved