Datums Format mit Uhrzeit abspeichern
17.09.2021 08:09:54
Steffen
Ich komme gerade nicht weiter weil ich den Fehler so gar nicht verstehe...
Ich möchte das eine Datei verschoben wird und im Anschluss wird diese umbenannt mit aktuellem Datum und Uhrzeit
Es klappt auch alles bis auf die Uhrzeit, die wird komischerweise nicht übergeben, kann mir da jemand sagen wo ich einen Fehler gemacht habe?
Hier mein Werk bisher:
Sub backup()
Dim erstschieben As Object
download = ThisWorkbook.Path & "\B&O Manager.xlsm"
programm = ThisWorkbook.Path & "\backup\"
Set erstschieben = CreateObject("Scripting.FileSystemObject")
erstschieben.MoveFile download, programm
Dim DatNam As String
Dim NeuDatNam As String
DatNam = ThisWorkbook.Path & "\backup\B&O Manager.xlsm"
NeuDatNam = Mid(DatNam, 1, InStrRev(DatNam, ".") - 1) & _
Format(Date, "DD-MMM-YYYY hh mm AMPM") & Mid(DatNam, InStrRev(DatNam, "."))
Name DatNam As NeuDatNam
End Sub
Steffen
Anzeige