[GastForen Programme Office Microsoft Office Dateien anhand einer Excel Reihenfolge nummerieren mit VBA

  • Suche
  • Hilfe
  • Lesezeichen
  • Benutzerliste
Office - Alles fürs Büro
Themen
Beiträge
Moderatoren
Letzter Beitrag

Dateien anhand einer Excel Reihenfolge nummerieren mit VBA

mischmaster
Beiträge gesamt: 20

20. Okt 2017, 15:00
Beitrag # 1 von 16
Bewertung:
(2622 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Hi,

ich habe folgendes Problem. Ich habe ca 5000 Audio Dateien und eine Excel Tabelle. In der Excel Tabelle kommen die Dateinamen in einer bestimmten Reihenfolge vor (alle in einer Spalte untereinander). Die Audio Dateien muss ich in einem Audio Schnittprogramm in derselben Reihenfolge, wie in der Tabelle, anordnen.
Mir bleibt also nur übrig, die Dateien in der Reihenfolge, wie sie in der Excel Tabelle vorkommen, durch zu nummerieren. Excel muß also die Datei anhand des Namens in der Spalte finden und vorne eine vierstellige Nummer aufsteigend hinzufügen.

Beispiel:

Alter DateinamenA.wav
Alter DateinamenB.wav
Alter DateinamenC.wav

umbenennen in:

0001 Alter DateinamenA.wav
0002 Alter DateinamenA.wav
0003 Alter DateinamenA.wav

Jetzt habe ich schon einen Code, der auf dem PC mit Excel 2016 auch funktioniert.
Auf dem Mac mit Excel 2016 geht es zwar auch, aber wegen dem Sandboxing muß ich den Zugriff für jede Datei einzeln bestätigen.
Es gibt wohl einen Workaround, aber das übersteigt meine Programmierkenntnisse:

Stichwort Befehl „GrantAccessToMultipleFiles"
https://msdn.microsoft.com/de-de/library/office/mt654020.aspx

Kann mir vielleicht jemand helfen den Code so zu bearbeiten, daß ich nicht mehr jedes Files einzeln bestätigen muß?

Code
sub Test()  
iPath = "c:temp"
'erster Name in Zeile 1, Spalte A
lr = cells(rows.count, "A").end(xlup).row
for i = 1 to lr
name iPath & cells(i,"A") as iPath & Format(i, "0###") & " " & cells(i,"A")
next i
end sub


Vielen Dank,

Michi
X

Dateien anhand einer Excel Reihenfolge nummerieren mit VBA

Klaus79
Beiträge gesamt: 305

20. Okt 2017, 16:40
Beitrag # 2 von 16
Beitrag ID: #560060
Bewertung:
(2609 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Hallo Michi,
ich kann es leider nicht testen weil ich noch ein uraltes Excel habe,
aber probier mal:

Sub Test()
Dim fileAccessGranted As Boolean
Dim iPath As String
Dim lastRow As Long, i As Long
Dim oldFile As String, newFile As String
iPath = "c:temp:"
' Letzte Zeile Spalte A
lastRow = Cells(Rows.Count, "A").End(xlUp).Row
Application.ScreenUpdating = False
For i = 1 To lastRow
' Name Spalte A
oldFile = iPath & Cells(i, "A")
fileAccessGranted(oldFile) = True
newFile = iPath & Format(i, "0###") & " " & Cells(i, "A")
Name oldFile As newFile
Next i
End Sub

Gruß
Klaus


als Antwort auf: [#560050]

Dateien anhand einer Excel Reihenfolge nummerieren mit VBA

mischmaster
Beiträge gesamt: 20

20. Okt 2017, 17:46
Beitrag # 3 von 16
Beitrag ID: #560064
Bewertung:
(2601 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Hi,

ich hab es getestet.
Excel gibt mir die Fehlermeldung aus: "Es wurde ein array erwartet."

Anscheinend in der Zeile

fileAccessGranted(oldFile) = True

Und gleich noch ne Frage hinterher. Muß ich beim Pfad die / durch : ersetzen?
Grüß,

Michi


als Antwort auf: [#560060]
(Dieser Beitrag wurde von mischmaster am 20. Okt 2017, 17:48 geändert)

Dateien anhand einer Excel Reihenfolge nummerieren mit VBA

Klaus79
Beiträge gesamt: 305

20. Okt 2017, 19:15
Beitrag # 4 von 16
Beitrag ID: #560065
Bewertung:
(2587 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Hi,

zu Deiner 2. Frage:

Unter dem Mac brauchst Du einen Doppelpunkt, unter Windows den Backslash /
Und natürlich muss unter Laufwerk C der Ordner "temp" angelegt sein.

Statt Doppelpunkt oder / kannst Du auch plattformunabhängig den
Application.PathSeparator verwenden:
iPath = "c" & Application.PathSeparator & "temp" & Application.PathSeparator
Für Mac und Windows gültig

Zu Frage 1:
da kann ich dir ohne Testen zu können leider nicht mehr weiter helfen ...

Gruß
Klaus


als Antwort auf: [#560064]

Dateien anhand einer Excel Reihenfolge nummerieren mit VBA

ktedo
Beiträge gesamt: 253

20. Okt 2017, 19:18
Beitrag # 5 von 16
Beitrag ID: #560066
Bewertung:
(2585 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Servus Michi,

ich hab da eine Idee, die Außerhalb von Excel bewerkstelligt wird. Mit dem Inhalte der Spalte in Excel, die die Dateinamen beinhaltet, kann mit einer z. B. PHP-Script genau das gemacht werden, was gewünscht ist (Umbennennen der Dateien mit vorangestellten Ziffern, passen zur Excel-Reihenfolge).


HG Thomas


als Antwort auf: [#560050]

Dateien anhand einer Excel Reihenfolge nummerieren mit VBA

mischmaster
Beiträge gesamt: 20

20. Okt 2017, 19:22
Beitrag # 6 von 16
Beitrag ID: #560067
Bewertung:
(2579 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Ich bin für jede Hilfe dankbar.
Auch Apple Script würde für mich gehen.

Danke


als Antwort auf: [#560065]

Dateien anhand einer Excel Reihenfolge nummerieren mit VBA

ktedo
Beiträge gesamt: 253

21. Okt 2017, 20:02
Beitrag # 7 von 16
Beitrag ID: #560085
Bewertung:
(2500 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
dann brauche ich bitte mal einen Schwung der Dateinamen
VG Thomas


als Antwort auf: [#560067]

Dateien anhand einer Excel Reihenfolge nummerieren mit VBA

mischmaster
Beiträge gesamt: 20

21. Okt 2017, 20:24
Beitrag # 8 von 16
Beitrag ID: #560086
Bewertung:
(2496 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Die sehen alle ungefähr so aus.
Könnten in der Zukunft aber auch mal anders aussehen.
Und die sind jetzt zufällig nach Alphabet sortiert.
Aber spielt das eine Rolle?


Agrmnt-00006C4C.wav
Agrmnt-00006C75.wav
Attckng-00000428.wav
AttckngIn5Scnds-00005A84.wav
AttckngTm-CptrPnt-InPrgrss-00005A3E.wav
AttckngTm-CptrPnt-InPrgrss-00005A40.wav
AttckngTm-CptrPnt-InPrgrss-000066F8.wav
AttckngTm-Pyld-InPrgrss-00005A2A.wav
AttckngTm-Pyld-InPrgrss-00005A2B.wav
AttckngTm-Pyld-InPrgrss-00005A2C.wav
AttckngTm-Pyld-Stlld-000059FE.wav
AttckngTm-Pyld-Stlld-000059FF.wav
AttckngTm-Pyld-Stlld-00005A00.wav
BhndY-000066EA.wav
Blnk-3inaRw-000001EF.wav
Blnk-3inaRw-000001F1.wav
Blnk-3inaRw-000001F2.wav
Blnk-3inaRw-000001F3.wav
ChckIn-000059B4.wav
ChckIn-000066F2.wav
ClsCll-00006C10.wav
Dfndng-00000429.wav
DfndngTm-CptrPnt-InPrgrss-00005A24.wav
DfndngTm-CptrPnt-InPrgrss-00005A25.wav
DfndngTm-CptrPnt-InPrgrss-00005A26.wav
DfndngTm-Pyld-InPrgrss-00005AAF.wav
DfndngTm-Pyld-InPrgrss-00005AB0.wav
DfndngTm-Pyld-InPrgrss-00005AB1.wav
DmgBffdbyFrndly-00005A01.wav
DmgBffdbyFrndly-00005A02.wav
DmgBffdbyFrndly-00005A03.wav
DmgBffdbyFrndly-000066F9.wav
DmgOvrTm-000067CA.wav
DmgOvrTm-000067CB.wav
DmgOvrTm-000067CC.wav
DmgOvrTm-000067CD.wav
DmgOvrTm-000067CE.wav
DmgOvrTm-Fr-000067CF.wav
DmgOvrTm-Fr-000067D0.wav
DmgOvrTm-Fr-000067D1.wav
DmgOvrTm-Fr-000067D2.wav
DmgOvrTm-Fr-000067D3.wav
DmgOvrTm-Frst-000067D4.wav
DmgOvrTm-Frst-000067D5.wav
DmgOvrTm-Frst-000067D6.wav
DmgOvrTm-Frst-000067D7.wav
DmgOvrTm-Frst-000067D8.wav
Dsgrmnt-00006C4D.wav
Dth-0000001C.wav
Dth-0000001D.wav


als Antwort auf: [#560085]
(Dieser Beitrag wurde von mischmaster am 21. Okt 2017, 20:26 geändert)

Dateien anhand einer Excel Reihenfolge nummerieren mit VBA

ktedo
Beiträge gesamt: 253

21. Okt 2017, 20:41
Beitrag # 9 von 16
Beitrag ID: #560087
Bewertung:
(2491 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
nein, das passt so. Die *.wav dürfen zur Bearbeitung per FTP auf einen Server geladen werden?


als Antwort auf: [#560086]

Dateien anhand einer Excel Reihenfolge nummerieren mit VBA

ktedo
Beiträge gesamt: 253

21. Okt 2017, 20:45
Beitrag # 10 von 16
Beitrag ID: #560088
Bewertung:
(2490 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
..und: Wie ist die Nummerierung anzuordnen? Darf der erste Eintrag in der Excel-Spalte zB 1001 sein? Oder gibt es dazu eine Regel?


als Antwort auf: [#560086]

Dateien anhand einer Excel Reihenfolge nummerieren mit VBA

mischmaster
Beiträge gesamt: 20

21. Okt 2017, 20:50
Beitrag # 11 von 16
Beitrag ID: #560089
Bewertung:
(2485 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Also wenn es ohne FTP gehen würde, dann wäre es besser.
Wir haben zwar einen, aber der Rechner an dem ich arbeite hat keinen Netzwerkzugang.

Bei der Nummerierung wäre
0001 - Dateiname.wav
0002 - Dateiname.wav

am besten glaube ich.


als Antwort auf: [#560088]

Dateien anhand einer Excel Reihenfolge nummerieren mit VBA

mischmaster
Beiträge gesamt: 20

21. Okt 2017, 20:53
Beitrag # 12 von 16
Beitrag ID: #560090
Bewertung:
(2482 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Und es ist ein Mac, falls das eine Rolle spielt...


als Antwort auf: [#560089]

Dateien anhand einer Excel Reihenfolge nummerieren mit VBA

ktedo
Beiträge gesamt: 253

21. Okt 2017, 20:54
Beitrag # 13 von 16
Beitrag ID: #560091
Bewertung:
(2482 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Dateiname kein Problem. Hab grad einen erfolgreichen Testlauf mit Musterdateien gemacht ;-) Kennst Du Dich mit PHP aus? können wir telefonieren?


als Antwort auf: [#560089]

Dateien anhand einer Excel Reihenfolge nummerieren mit VBA

mischmaster
Beiträge gesamt: 20

21. Okt 2017, 20:57
Beitrag # 14 von 16
Beitrag ID: #560092
Bewertung:
(2480 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Ne, sorry, ich hab leider keine Ahnung von Php.
Aber ein Kollege in der Arbeit kennt sich damit aus. Wenn du mir die Infos schreibst, dann wird der sie verstehen.

Vielen Dank, dass du dir Samstag Abend solche Mühen machst.


als Antwort auf: [#560091]

Dateien anhand einer Excel Reihenfolge nummerieren mit VBA

ktedo
Beiträge gesamt: 253

21. Okt 2017, 21:06
Beitrag # 15 von 16
Beitrag ID: #560094
Bewertung:
(2477 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
wenn auf dem Rechner, auf dem die Dateien liegen (oder im gleichen Netzwerk) ein PHP-Server läuft sollte es funktionieren. Sollten die Datenmengen nicht allzugroß und geheim sein, biete ich an, diese nach diesem Schema umzubenennen.


als Antwort auf: [#560092]
Hier Klicken X
Hier Klicken

Web / SEO

Veranstaltungen

Hier können Sie Ihre Anlässe eintragen, welche einen Zusammenhang mit den Angeboten von HilfDirSelbst.ch haben. Die Einträge werden moderiert freigeschaltet. Dies wird werktags üblicherweise innert 24 Stunden erfolgen. pdf-icon Hier eine kleine Anleitung.

Veranstaltungen
13.12.2018 - 20.12.2018

3400 Burgdorf, BE
Donnerstag, 13. Dez. 2018, 09.00 Uhr - Donnerstag, 20. Dez. 2018, 09.00 Uhr

Workshop

Schritt für Schritt: Planen, konzipieren und Umsetzen einer responsiven Website mit Wordpress: Lokalen Server einrichten; Frontend/Backend; Vorgehen Schritt für Schritt bis zur fertigen Site.

2-Tages-Workshop CHF 990.00

Ja

Organisator: PubliCollege GmbH

Kontaktinformation: Beat Kipfer, E-Mailinfo AT publicollege DOT ch

www.publicollege.ch

Websites erstellen mit Wordpress und Elementor Pro
Veranstaltungen
19.12.2018

Wie installiert und konfiguriert man Mailchimp und verwendet es für sein Business

Internet
Mittwoch, 19. Dez. 2018, 10.00 - 11.30 Uhr

Webinar

In diesem Webinar zeige ich den Teilnehmern, wie sie mit Mailchimp eigene Newsletter verschicken können. Wie sie Mailchimp installieren und konfigurieren müssen und wie sie eine erste Kampagne machen können.

Gratis

Ja

Organisator: Eric Mächler

https://events.genndi.com/register/818182175026318367/4ac0f277c0

Der Start ins E-Mail Marketing mit Mailchimp