VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Einzelnes Tabellenblatt unter Tagesdatum speichern

Gruppe

Datei

Bereich

Speichern

Thema

Einzelnes Tabellenblatt unter Tagesdatum speichern

Problem

Wie kann ich ein einzelnes Tabellenblatt aus einer Arbeitsmappe unter dem aktuellen Tagesdatum speichern?

Lösung

Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.




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

    


Beiträge aus dem Excel-Forum zu den Themen Datei und Speichern