lässt sich dieser VBA Code anpassen

[omron2003]

Hallo Forum,

wie lässt sich dieser Code anpassen das der Dateiname mit Datum und Uhrzeit gespeichert wird?

Code:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Pfad = Left(ThisWorkbook.FullName, InStrRev(ThisWorkbook.FullName, "\")) & "Archiv\"
DATEI = Mid(ThisWorkbook.FullName, InStrRev(ThisWorkbook.FullName, "\") + 1, Len(ThisWorkbook. _
FullName))
On Error Resume Next
SetAttr Pfad & DATEI, 0 'Schreibschutz aus
On Error GoTo 0
ThisWorkbook.SaveCopyAs Pfad & DATEI
SetAttr Pfad & DATEI, 1 'Schreibschutz ein
End Sub

Besten Dank im Voraus
omron2003

[BoskoBiati]

Hi,

z.B. so:

Code:

DATEI = Mid(ThisWorkbook.FullName, InStrRev(ThisWorkbook.FullName, "\") + 1, Len(ThisWorkbook. _
FullName)) & Format(Now(), "ddmmyyhhmm")

[omron2003]

leider speichert er mir die Datei nun wie folgt.

Sicherung.xlsm0702241435

Gruß
omron2003

[BoskoBiati]

Hi,

dann muß der Teil mit dem Datum irgendwo dazwischen.

Code:

DATEI = Mid(ThisWorkbook.FullName, InStrRev(ThisWorkbook.FullName, "\") + 1, Len(ThisWorkbook. _
FullName)-4) & Format(Now(), "ddmmyyhhmm")&right( ThisWorkbook.FullName ,4)