Omdøbe mange filer på baggrund af excel-ark

Ja, hvis du har hele stien med

Hvis du har eksisterende navn i kolonne A og Nyt navn i kolonne B, så markerer du de eksisterende navne i kolonne A og kører makroen

Public Sub RenameFiles()
Dim C As Range
For Each C In Selection
Name C As C.Offset(0, 1)
Next
End Sub

Det er en makro i Excel, dette foregår

Bare for at være sikker: Dette ændre ikke (kun) noget i Excel, men også selve filnavnene i den respektive mappe?

Yes, den ændrer filnavnene på harddisken

Du kunne jo lave en test på en dummy fil

her er en der skriver i 3 kolonne, hvis der var fejl

Public Sub RenameFiles()
    Dim C As Range
    On Error GoTo Fejl
    For Each C In Selection
        Name C As C.Offset(0, 1)
    Next
    Exit Sub
Fejl:
    MsgBox C & " blev ikke fundet/ændret"
    C.Offset(0, 2) = "Fejl"
    Resume Next
End Sub

lidt mere

Public Sub RenameFiles()
    Dim C As Range
    On Error GoTo Fejl
    For Each C In Selection
        Name C As C.Offset(0, 1)
        C.Offset(0, 2) = "OK"
Videre:
    Next
    Exit Sub
Fejl:
    MsgBox C & " blev ikke fundet/ændret"
    C.Offset(0, 2) = "Fejl"
    GoTo Videre
End Sub

mere ændring, på fejlfortolkning

Public Sub RenameFiles()
    Dim C As Range
    On Error GoTo Fejl
    For Each C In Selection
        Name C As C.Offset(0, 1)
        C.Offset(0, 2) = "OK"
Videre:
    Next
    Exit Sub
Fejl:
    MsgBox C & " blev ikke fundet/ændret"
    C.Offset(0, 2) = "Fejl"
    Err.Clear
    Resume Videre
End Sub

Du må være jordens klogeste mand :)

Der står godt nok i din profil at du bruger meget tid på Basic ifb. Excel, men er det også noget du laver i dit daglige job?

Skynd dig at smide et svar.
(Beklager den lange svartid)

et svar;-))

Jeg programmerer en del i VBA på mit arbejde.

tak for point

Det er mig der takker. Jeg har lige et tillægsspørgsmål, hvis du gerne vil have det oprettet som et nyt spørgsmål, skal du bare sige til: Kan man let ændre det, så den i stedet for at ændre navnet opretter en kopi med det nye navn? (så den eksisterende stadig er der).
Det skyldes at den samme fil skal omdøbes til flere nye... redundant og dumt, ved det godt, men sådan er det åbenbart skruet sammen.

ret
Name
til
FileCopy

sådan, og omdøb lige makroen, så du ved hvad den gør.

Public Sub CopyFiles()
    Dim C As Range
    On Error GoTo Fejl
    For Each C In Selection
    FileCopy C, C.Offset(0, 1)
        C.Offset(0, 2) = "OK"
Videre:
    Next
    Exit Sub
Fejl:
    MsgBox C & " blev ikke fundet/ændret"
    C.Offset(0, 2) = "Fejl"
    Err.Clear
    Resume Videre
End Sub