Sub Beispiel()
Dim Datum As String
Dim Inhalt As String
Dim DateiName As String
 
Datum = Format(Day(Date), "00") & _
                 Format(Month(Date), "00") & _
                 Format(Year(Date), "0000")
Inhalt = Sheets("Tabelle1").Cells(3, 1).Text 'z.B.: Beispiel
DateiName = Datum & Inhalt '30062003Beispiel
Application.ActiveWorkbook.SaveAs DateiName
End Sub