Gruppe
Datei
Problem
Wie kann ich ein einzelnes Tabellenblatt aus einer Arbeitsmappe unter dem aktuellen Tagesdatum speichern?
StandardModule: basMain
Sub Speichern()
Dim sPath As String, sFile As String
Application.ScreenUpdating = False
sPath = Application.DefaultFilePath & "\"
sFile = Format(Date, "yyyymmdd") & ".xls"
ActiveSheet.Copy
ActiveSheet.Buttons(1).Delete
ActiveWorkbook.SaveAs sFile
ActiveWorkbook.Close savechanges:=False
MsgBox "Das Blatt wurde unter " _
& sPath & sFile & " gespeichert!"
Application.ScreenUpdating = True
End Sub