Aktuelles Datum im Dateiname integriert speichern

Computer: Software & Programmierung Visual Basic
#1

Hallo,

wie kann ich in einem Makro am Ende eine Datei
so speichern, dass sie einen Namen und das aktuelle Datum in diesem Namen integriert ist.

z.B. puls_13.10.2011.xls

Gruß Georg

#2

wie kann ich in einem Makro am Ende eine Datei
so speichern, dass sie einen Namen und das aktuelle Datum in
diesem Namen integriert ist.

z.B. puls_13.10.2011.xls

Hallo Georg,

Option Explicit

Sub MitDatum()
Dim strDatei As String, strEndung As String
With ThisWorkbook
 strDatei = Left(.Name, InStrRev(.Name, ".") - 1)
 strEndung = Replace(.Name, strDatei, "")
 .SaveAs .Path & "\" & strDatei & Format(Date, "\_YYYY\_MM\_DD") & strEndung
End With
End Sub

Gruß
Reinhard