Dateinamen automatisch aus Zelle übernehmen

[EbyAS]

Hallo,
vorab ist zu bemerken die Speicherung des Workbooks kannst Du nicht mit Speicher-Button erreichen!
Dazu ist ein Ausblenden selbiger erforderlich.
Wenn selbige benutzt werden, speichert er das aktuelle Sheet.
Um die Speicherung die Du erreichen willst, musst Du das Sheet mit "Schließen" beenden.
Der folgende Code muss in "DieseArbeitsmappe" (VBA-Editor) gespeichert werden.

Code:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim WSHShell As Object
Dim strDesktopPath As String
Set WSHShell = CreateObject("wscript.Shell")
strDesktopPath = WSHShell.SpecialFolders.Item("Desktop")
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=strDesktopPath & "\" & Tabelle1.Range("B58").Value & ".xlsm", _
          FileFormat:=xlOpenXMLWorkbookMacroEnabled, Password:="", WriteResPassword:="", _
          ReadOnlyRecommended:=False, CreateBackup:=False
  ActiveWorkbook.Close SaveChanges:=True
  Application.DisplayAlerts = True
  Application.Quit
End Sub