Makro speichern unter
09.09.2007 09:51:00
Mercedesmann
Habe ein makro zum speichern der Arbeitsmappe, die den Namen zum speichern aus einer Zelle bezieht. Weiß jemand von euch, wie ich zusätzlich automatisch das aktuelle Datum einbauen kann?
Sub Speichern()
' Speichern Makro
'Option Explicit
Const strPath As String = "C:\Dokumente und Einstellungen\user\Desktop\"
Dim strFile As String
strFile = Sheets("Grunddaten").Range("D8")
ActiveWorkbook.SaveAs Filename:=strPath & strFile & ".xls"
End Sub
Gruß Willi
Anzeige