Excel VBA Datei umbennen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Anna
Die Tabelle1 der angehängten Datei ist so aufgebaut:
A1: Pfad des Quellordners mit den Bildern
B1: Pfad des Zielordners mit den Artikeln
A3:A12: Die Dateinamen der Bilder (ohne Dateierweiterung)
B3:B12: Die zugehörigen Dateinamen mit Artikelnummern (ohne Dateierweiterung)
C1: Die Dateierweiterung "jpg"
Quell- und Zielordner musst Du anpassen. Bei mir sind sie im Laufwerk D!
Die Dateierweiterung musst Du ebenfalls anpassen: Bei mir sind es jpg-Bilder.
Das Makro verschiebt die Bilder vom Bilder-Ordner in den Artikel-Ordner und nennt sie dabei um gemäss den jeweiligen Artikelnummern in Spalte B. Zu beachten ist: Jedes Bild erhält eine eigene Artikelnummer. D. h. also: In Spalte B darf eine Artikelnummer nur einmal vorkommen. Das ist in Deiner Musterdatei nicht der Fall! Das gleiche gilt auch für Spalte A: Eine Bilddatei darf nur einmal aufgeführt sein.
Wenn im Zielordner die betreffende Artikelnummer bereits vorhanden ist, wird das zugehörige Bild nicht verschoben.
Grüsse Niclaus
https://www.herber.de/bbs/user/124504.xlsm

Grüezi Anna
"Weniger als 10 Artikel" - Wichtig ist: Die Anzahl Bilder und die Anzahl Artikel müssen identisch sein: Es gibt also 5 Bilder und 5 Artikel! Und nach wie vor gilt: In den Spalten A und B dürfen Bilder- und Artikel-Namen nur je einmal aufgeführt sein. - Wenn diese Bedingungen erfüllt sind, dann muss man das Makro in der Datei, die ich hochgeladen hatte, leicht anpassen. Es heisst dann so:

Option Explicit
Sub Dateien_Verschieben()
On Error GoTo fehler1
Dim myFSO As Object
Dim qFolder As String, tFolder As String
Dim qFile As String, tFile As String, ext As String
Dim i As Integer, lz As Integer
lz = Cells(Rows.Count, 1).End(xlUp).Row
Set myFSO = CreateObject("Scripting.FileSystemObject")
qFolder = Range("A1") & "\"
tFolder = Range("B1") & "\"
ext = "." & Range("C2")
For i = 3 To lz
qFile = Cells(i, 1) & ext
tFile = Cells(i, 2) & ext
myFSO.MoveFile qFolder & qFile, tFolder & tFile
Next i
MsgBox "Uebertrag erledigt!", 64, Application.UserName
Exit Sub
fehler1:
MsgBox "Sind die Dateien etwa schon uebertragen?" & Chr(13) & _
"Sind Dateinamen in Spalte A oder B doppelt vorhanden?", 16, Application.UserName
End Sub

Mit der Variablen lz zählt man die Anzahl Bilder in Spalte A. Und diese Anzahl Bilder wird dann umbenannt und in den Fotos-Ordner verschoben.
Grüsse Niclaus

Beliebteste Forumthreads (12 Monate)

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread