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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen