was mache ich falsch das der Ordner nicht umbenannt wird?
Der Ordner ist vorhanden
C:\Desktop\Firmenverwaltung\Firma\7005-KDP_Adam Klaus\Altbau Mustering 123 80000 Musterdorf
und soll nun so umbenannt werden
C:\Desktop\Firmenverwaltung\Firma\7005-KDP_Adam Klaus\Altbau Mustering 25 80000 Musterdorf
Sub Ordner_umbenennen()
Dim sDateiAlt As String
Dim sDateiNeu As String
Dim sFile As String
sFile = "7005-KDP_Adam Klaus"
sDateiAlt = "Altbau Mustering 123 80000 Musterdorf"
sDateiNeu = "Altbau Mustering 25 80000 Musterdorf"
With Application
.EnableEvents = False
.ScreenUpdating = False
.DisplayAlerts = False
.Calculation = xlCalculationManual
End With
Name ThisWorkbook.Path & "\Firma\" & sFile & "\" & sDateiAlt _
As ThisWorkbook.Path & "\Firma\" & sFile & "\" & sDateiNeu
With Application
.EnableEvents = True
.ScreenUpdating = True
.DisplayAlerts = True
.Calculation = xlCalculationAutomatic
End With
End Sub
Danke!
LG
Ludmila