Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Einzelnes Tabellenblatt unter Tagesdatum speichern

Gruppe

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