Wie kann ich mit Hilfe von VBA eine aktuell geöffnete Excel Datei umbenennen, dass die Datei das aktuelle Datum als Namen bekommt ?
Sub umbenennenDatum()
Dim strNameOld As String
If Left(ThisWorkbook.Name, 6) = Format(Date, "YYMMDD") Then Exit Sub
strNameOld = ThisWorkbook.FullName
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & Format(Date, "YYMMDD") & ".xls"
Kill strNameOld
End Sub