Dateiänderung mit Excel

[KallidoingExcel]

Hallo, 
ich habe folgendes Problem, dass ich nicht gelöst bekomme. 
Meine Excel Tabelle besitzt eine Spalte mit Zahlen und eine Spalte mit Dateinamen die nicht sortiert ist. Die Dateinamen enthalten als vorderste Zeichen bis zum Bindestrich die erste Zahl. Die Dateinamen sollen umbenannt werden in die Zahl und die Dateiendung. Möglichst dann auch im Ordner wo die Dateien gespeichert sind. Im zweiten schritt sollen die umbenannten Dateien ihrer entsprechenden Zahl in der Spalte "Datei Zugehörig" zugeteilt werden.

Die Beispieltabelle ist nicht vollständig mit den Datensätzen.

Ich hoffe es gibt da eine Möglichkeit.

Vielen Dank für eure Zeit

[MisterBurns]

Die Beispieltabelle ist nicht vollständig mit den Datensätzen.

Dann wirst du auch eine unvollständige Lösung erhalten. Ich habe nämlich nicht verstanden, was du möchtest.
Was haben die Einträge unter Dateiliste mit den Einträgen in Spalte A zu tun? Genau - gar nichts. Wie soll da irgendein logischer Zusammenhang hergestellt werden können für uns als Außenstehende?
Und wieso ist die Spalte "Datei zugehörig" leer?

Also, erstelle eine neue Beispieldatei in der KLAR ersichtlich ist, was du haben möchtest.

[KallidoingExcel]

Ok nochmal, sorry für die Unverständlichkeit. 

In Spalte A ist eine Zahl die in den Dateinamen der Dateiliste an erster Stelle vorkommt. Die Dateien sollen so umbenannt werden, dass nur noch die Zahl und die Dateiendung dort stehen und soll zu der Zahl zugeordnet sein, da die Dateiliste unsortiert ist.

Es soll dann am Ende so aussehen wie bei Zeile 4. Die Datei, die zurzeit den Namen aus der Spalte 4 besitzt soll im gleichen Zug in den Namen von Spalte 2 umbenannt werden.

Ist das so besser verständlich?

[MisterBurns]

Ja, ich denke, dass ich es jetzt verstanden habe. Nur noch eine Rückfrage:
Die Zahl, die in der Dateiliste am Anfang steht ist im Prinzip die Zahl, wie die Datei am Ende heißen soll. Ist das so korrekt?
Falls ja, ist eigentlich ja die Spalte A nutzlos, denn dann müsste ich ja nur im ersten Schritt die Zahl aus dem bestehenden Dateinamen bis zum "-" auslesen und hätte somit den neuen Dateinamen.

[Fennek]

Hallo,

der Code ist ungeprüft, also teste zuerst an Kopien:

Code:

sub F_en()

Pfad = "c:\temp\" '############## anpassen ##########

for i = 4 to cells(rows.count, 4).end(xlup).row
NAME Pfad & cells(i,4) AS Pfad & cells(i,1) & ".jpg"
next i

end sub

mfg

(keine Garantie!)

[MisterBurns]

@Fennek: Das wäre glaube ich keine gute Idee, denn Spalte A und Spalte D sind ja eben NICHT richtig sortiert respektive stimmen nicht überein. Daher auch meine obige Rückfrage!

@Kalli: Falls meine Vermutung oben richtig ist, verwende in Spalte A diese Formel und zieh sie nach unten:

Code:

=LINKS(D4;FINDEN("-";D4)-1)

Dann kannst du mit Fenneks Code deine Aufgabe abarbeiten lassen.

[Fennek]

Hallo Berni,

im ersten Ansatz hatte ich ein

Code:

split(cells(i,4), "-")(0) & ".jpg"

aber dann wäre die erste Spalte völlig überflüssig.

Mal sehen, was der Fragesteller noch so an Info's liefert.

mfg

[WillWissen]

Hi,

hier eine Formellösung mit einer (ausblendbaren) Hilfsspalte

Arbeitsblatt mit dem Namen 'Tabelle1'
	A	B	C	D	E	F
3	Zahl 2 Zugehörig	Datei zugehörig	HS			Dateiliste
4	10679710	10679710.jpg	1	10679710.jgp		10679710-EBD-106797100031.eps-15001-highres.jpg
5	11080686	1982503.jpg	4	1982503.jgp		1982503-EBD-019825030071.eps-10236-highres.jpg
6	1982511	11080686.jpg	2	11080686.jgp		11080686-EBD-110806860011.eps-20675-highres.jpg
7	1982503	10746063.jpg	8	10746063.jgp		10746063-EBD-107460630031.eps-15452-highres.jpg
8	11086535	1982453.jpg	9	1982453.jgp		1982453-EBD-019824530071.eps-10204-highres.jpg
9	734590	1982511.jpg	3	1982511.jgp		1982511-EBD-019825110071.eps-10247-highres.jpg
10	10843746	734590.jpg	6	734590.jgp		734590-EBD-007345900021.eps-9080-highres.jpg
11	10746063	10843746.jpg	7	10843746.jgp		10843746-EBD-10843746P141.eps-52063-highres.jpg
12	1982453	11086535.jpg	5	11086535.jgp		11086535-EBD-Schnellverstellzirkel my.pen farbig sortiert, 3 Hangepackungen-55828-highres.jpg

Zelle	Formel
C4	=VERGLEICH(LINKS(F4;SUCHEN("-";F4;1)-1)*1;$A$4:$A$12;0)
D4	=LINKS(INDEX($F$4:$F$12;KKLEINSTE($C$4:$C$12;ZEILE(A1)));SUCHEN("-";F4;1)-1)*1&".jgp"

Verwendete Systemkomponenten: [Windows (32-bit) NT 10.00] MS Excel 2016

Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg

[KallidoingExcel]

Danke euch allen erstmal. 
Ja die Spalte A ist namensgebend.
Die Spalte A ist notwendig weil sie in einer anderen verknüpften Tabelle die Zuordnung liefert. Und die Spalte D ist in meinen Augen insofern notwendig, da Excel ja den derzeitigen Dateinamen zum umbenennt der Datei benötigt.

[KallidoingExcel]

@Fennek ich bekomme bei deinem Code immer einen Fehler angezeigt. Und zwar Fehler 53 Dateien nicht gefunden. Sie sind so aber in dem Pfad vorhanden.