Excel und VBA: Formeln, Programmierung, Lösungen

StandardModule: Modul1

Sub Speichern()
   Dim Results As Variant
   SendKeys "%xg{tab}"
   Results = Application.Dialogs(xlDialogSaveAs).Show
   If Results = False Then
      Exit Sub
   Else
      MsgBox "Gespeichert"
   End If
End Sub

    

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