Deepak fragt:
Hallo, ich versuche, einer Zelle A38 das aktuelle Datum zuzuweisen, indem
=NOW()
ich einen SaveAs durchführe, indem ich den Inhalt dieser Zelle als Dateinamen für die zu speichernde Datei zuweise. Ich kann nicht den richtigen Code dafür schreiben.ChDir "C:Backup" ActiveWorkbook.SaveAs Filename: = Range("A38").Text, FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
Im oben genannten Code muss ich lediglich den Dateinamen durch den Inhalt einer Zelle A38 ersetzen, die immer das aktuelle Datum enthält. Ich würde mich freuen, wenn Sie mir die korrekte Schreibweise dieses Codes mitteilen würden. Ich habe versucht, den Dateinamen durch ein paar Dinge zu ersetzen, die sich mit tip025 in www.mrexcel.com in befassen, aber es hat nicht funktioniert.
Das Problem tritt auf, wenn das Format des Datums das Zeichen "/" enthält. Versuchen Sie Folgendes:
ActiveWorkbook.SaveAs Application.Substitute(Range(“A38”).Text,”/”,”-“)