ich habe ein Problem mit einem Makro, was ich mir aus mehreren Internetquellen zusammengebastelt habe, vielleicht kann mir wer helfen:
Sub DateienUmbenennen()
Dim sPath As String, sPattern As String, sFile As String, sComp As String, sOldName As _
String, sNewName As String
Dim iCount As Integer
With Application.FileDialog(msoFileDialogFolderPicker)
sPath = ""
If .Show = -1 Then
sPath = .SelectedItems(1)
If Right(sPath, 1) "\" Then sPath = sPath & "\"
End If
End With
sPattern = "*.*"
sFile = Dir(sPath & sPattern)
Do Until sFile = ""
For iCount = 1 To 222
sComp = Cells(i, 1).Value
If sComp = sFile Then
sOldName = sPath & sFile
sNewName = sPath & Cells(i, 2).Text
Name sOldName As sNewName
End If
Next
Loop
End Sub
Der Code ist nicht schön, wahrscheinlich unmöglich langsam und laienhaft, aber am schlimmsten: Er funktioniert nicht.Die fett markierte Zeile wird mir immer mit "Laufzeitfehler 1004: Anwendungs- oder Objektdefinierter Fehler" markiert. Hat das was mit der Speicherung im String zu tun? Ich habe das Makro in meiner PERSONAL.xlsb gespeichert und starte es von einem Worksheet in einem Workbook, was in Spalte 1 alter und Spalte 2 neue Namen enthält. In dem Ordner, den ich auswähle sind zusätzlich Dateien, die in der Liste nicht auftauchen, also unberührt bleiben sollen.
In der markierten Zeile habe ich auch bereits mit CStr() und sämtlichen Varianten von Cells(i, 1).text/value oder sonstigem rumprobiert..
Danke im Voraus und entschuldigt die umständliche Frage..
Gruß,
Jan