Dateien umbenennen

Computer: Software & Programmierung Visual Basic
#1

Hallo an alle,

ich habe wieder ein Problem und brauche dringend eure Hilfe.

In einem Ordner auf dem Desktop liegen ein paar tausend Dateien (.nii Dateien). Diese sind mit einem falschen Namen versehen. Ich habe eine Exceltabelle in der stehen in der Spalte A2:A6000 der momentane Dateiname und in Spalte B2:B6000 steht der neue Dateiname.
Nun möchte ich dieses mit einem Makro lösen.

Nach dem Ausführen des Makros soll der alte Name mit dem neuen Namen überschrieben werden.

Wende ich folgenden Code an schließt sich die Exceltabelle unerwartet und sagt „Es ist ein unerwartetes Problem aufgetreten“.
Meine Frage jetzt, liegt das an dem Code oder ist Excel Mac 2011 noch nicht soweit?

Sub umbenennen() 

Dim NameAlt As String 
Dim NameNeu As String 
Dim Pfad As String 

Pfad = /Users/Platte/Desktop/Ordner umbenennen/Dateien 

Name NameAlt As NameNeu 

End Sub

Vielen Dank für eure Hilfe.
PS: Ich arbeite mit einem iMac und benutze Office Mac 2011.

#2

Dim Pfad As String
Pfad = /Users/Platte/Desktop/Ordner umbenennen/Dateien

Vermutlich ein Schreibfehler, aber der Vollständigkeit halber: Die „“ fehlen. Nehme an, du steckst den Pfad noch in deinen Dateinamen mit rein?

Name NameAlt As NameNeu

Das sollte eigentlich so funktionieren, vorausgesetzt, NameAlt und NameNeu enthalten die vollständigen Pfade und die Dateien sind nicht geöffnet. Dann sollte auch ein Verschieben bzw. Kopieren funktionieren

#3

Hallo und danke für deine Antwort,

ja, die Anführungszeichen habe ich vergessen, aber es funktioniert immer noch nicht.

Was meinst du mit …

Nehme an, du steckst den Pfad noch in deinen Dateinamen mit rein?

Ich stelle es noch einmal mit Dummydaten vor.

So sieht das Makro jetzt aus:

Sub umbenennen()

Dim NameAlt As String
Dim NameNeu As String
Dim Pfad As String

Pfad = "/Users/Platte/Desktop/Ordner\_umbenennen/Dateien/"
Name NameAlt As NameNeu

End Sub

und so sieht die Exceltabelle aus:

Spalte A
Zelle A1 heißt NameAlt und
in Zelle A2 steht
/Users/Platte/Desktop/Ordner_umbenennen/Dateien/aaa111111.nii
in Zelle A3 steht
/Users/Platte/Desktop/Ordner_umbenennen/Dateien/bbb222222.nii etc.

Spalte B
Zelle B1 heißt NameNeu und
in Zelle B2 steht
/Users/Platte/Desktop/Ordner_umbenennen/Dateien/123456.nii
in Zelle B3 steht
/Users/Platte/Desktop/Ordner_umbenennen/Dateien/789012.nii etc.

Hast du sonst noch eine Ahnung wo mein Fehler liegen könnte?

Liebe Grüße
br_amy

#4

wo besetzt du denn deine variablen?

wenn du nur deine sub „umbenennen“ ausführst, dann sind die beiden strings NameAlt und NameNeu natürlich leer. so würde versucht werden, die datei „“ in „“ umzubennenen.

irgendwo müsste ja noch etwas wie NameAlt = Cells(2, 1).Value bzw. NameNeu = Cells(2, 2).Value stehen, oder? denn NameNeu und NameAlt sind ja „nur“ Strings, die in dem sub erzeugt werden (lokale variablen)

#5

Hallo Emma,

In einem Ordner auf dem Desktop liegen ein paar tausend
Dateien (.nii Dateien). Diese sind mit einem falschen Namen
versehen. Ich habe eine Exceltabelle in der stehen in der
Spalte A2:A6000 der momentane Dateiname und in Spalte B2:B6000
steht der neue Dateiname.

Wende ich folgenden Code an schließt sich die Exceltabelle
unerwartet und sagt „Es ist ein unerwartetes Problem
aufgetreten“.

vielleicht liegt es an dem was u.a. zu „Name“ in der Hilfe steht:

‚‘ Unter Microsoft Windows:
'AlterName = „C:\VERZ1\DATEIALT“: Neuername = „C:\VERZ2\DATEINEU“
'Name AlterName As Neuername ’ Datei verschieben und umbenennen.

‚‘ Auf dem Macintosh:
'AlterName = „HD:open_mouth:RDNER1:smiley:ATEIALT“: Neuername = „HD:open_mouth:RDNER2:smiley:ATEINEU“
'Name AlterName As Neuername ’ Datei verschieben und umbenennen.

Nachfolgend neuer Code.

Gruß
Reinhard

Option Explicit

Sub Umbenennen()
Dim Zei As Long
For Zei = 2 To 6000
 Name Cells(Zei, 1).Value As Cells(Zei, 2).Value
Next Zei
End Sub