Speichern der Arbeitsmappe
19.08.2003 16:20:51
Alexander
ich habe aus diesem Forum bei den FAQs folgendes Makro zum Speichern der Arbeitsmappe gefunden:
Sub Speichern()
Dim sFile As String, sPath As String
sPath = Application.DefaultFilePath & "\"
sFile = Range("A1").Value
sFile = Format(CDate(sFile), "yyyymmdd") & ".xls"
ActiveWorkbook.SaveAs sPath & sFile
End Sub
Für meinen Zweck perfekt wäre es, wenn anstelle des Wertes in A1 das jeweils jüngste Datum genommen werden würde, da das Arbeitsblatt täglich erweitert wird (aktuell ist A99 bspw.)
Würde mich über eine Antwort sehr freuen,
Gruß
Alexander