Clever-Excel-Forum

Clever-Excel-Forum > Office-Anwendungen > Excel > lässt sich dieser VBA Code anpassen
Normale Version: lässt sich dieser VBA Code anpassen
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.

omron2003

07.02.2024, 14:17
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

07.02.2024, 14:26
Hi,

z.B. so:

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

omron2003

07.02.2024, 14:42
leider speichert er mir die Datei nun wie folgt.

Sicherung.xlsm0702241435

Gruß
omron2003

BoskoBiati

07.02.2024, 14:53
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)
Clever-Excel-Forum > Office-Anwendungen > Excel > lässt sich dieser VBA Code anpassen