Excel und VBA: Formeln, Programmierung, Lösungen
Die Excel/VBA-Beispiele
Thema
Mappe unter Zelldatum speichern
Gruppe
Speichern
Problem
Wie kann ich die aktive Arbeitsmappe unter dem Datum, daß in Zelle A1 des 1. Arbeitsblattes steht speichern? Der Dateiname soll das Format TTMM.XLS, also z.B. 0312.XLS haben.
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain 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