title image


Smiley Umbenennen von Dateien per VBA
Hallo Geischt,



mit folgendem Makro kann man Dateien eines Ordners umbenennen :

      

Sub DateienUmbenennen()

    'Umbenennen von Dateien EINES Ordners

    'Alter Name steht in Spalte A, neuer Name in Spalte B

    On Error Resume Next

    Pfad = "C:\DeineDateien\Excel\" 'Dateiname bitte anpassen, mit "\" am ENDE !!!

    For zeile = 1 To[A65536].End(xlUp).Row

        Name Pfad & Cells(zeile, "A") As Pfad & Cells(zeile, "B")

        If Err = 0 Then

            Cells(zeile, "C") = "OK"

        Else

            Cells(zeile, "C") = "Fehler"

        End If

    Next

End Sub 



In Spalte C wird "OK" ausgegeben, wenn das Umbenennen der Datei fehlerfrei war oder "Fehler", falls das nicht geklappt hat (z.B. bei doppeltem Dateinamen).



Bitte sichere VOR dem Starten des Makros Deine Dateien, um den ursprünglichen Namen ggf. wieder herstellen zu können !!



Gruß, JerryB
Bezeichnungen der Elemente eines Excel XP Fensters (Bild, ca. 170 KB).

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: