Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Dateien umbenennen | Herbers Excel-Forum


Betrifft: Dateien umbenennen von: stefanrfrank
Geschrieben am: 19.11.2010 12:43:47

Salut,

leider hat die Hilfe zu Hans' Beispielen Code zum umbenennen von Dateien nicht funktioniert. Was muss ich ändern damit meine Dateinamen von A2 bis A in die neuen in B2 bis B umbenannt werden? Die Dateiendungen sind durcheinander.

Der gepostete Code:

Sub datei_umbenennen()
Const csMsg As String = "Datei existiert bereits. Überschreiben?"
On Error GoTo ERRORHANDLER
'in A2 steht der alte Dateiname mit kompletter Pfadangabe (analog B2)
i=2
do until cells(i,1)= ""
Name cells(i,1).Value As cells(i,2).Value
i=i+1
loop
Exit Sub
ERRORHANDLER:
If Err = 58 Then
Beep
If MsgBox(csMsg, vbQuestion + vbYesNo) = vbNo Then Exit Sub
Kill cells(i,2)'was passiert hier????? KILL klingt so dramatisch! - Die Datei wird gelöscht!!!
Resume
ElseIf Err = 53 Then
Beep
MsgBox "Datei nicht gefunden!"
End If

Vielen Dank für Eure Hilfe!

Stefan

  

Betrifft: AW: Dateien umbenennen von: Christian
Geschrieben am: 19.11.2010 13:35:28

hallo,
hast du den kompletten Pfad zu den Dateien angegeben?

Wenn nicht, dann probier's mal.
Gruß
Christian


  

Betrifft: AW: Dateien umbenennen von: Heinz Wankmüller
Geschrieben am: 19.11.2010 14:44:57

Hallo Stefan,

Name funktioniert nur innerhalb desselben Laufwerks.
Sollten in A und B unterschiedliche Laufwerke stehen, dann kann es nicht funktionieren.
Gruß
Heinz


  

Betrifft: AW: Dateien umbenennen von: stefanrfrank
Geschrieben am: 22.11.2010 08:46:27

Hallo,

vielen Dank für Eure Antworten.

Das Problem bei mir ist, dass nur die erste Datei umbenannt wurde, aber nicht alle. Die kompletten Pfade habe ich angegeben und die Datein befinden sich auch alle im selben Ordner.

Viele Grüsse

Stefan


Beiträge aus den Excel-Beispielen zum Thema "Dateien umbenennen"