Mit ActiveWindow.Caption kann ich zwar die Bezeichnung des Fensters ändern, jedoch schlägt Exel nachwievor vor, die Mappe als "Mappe1.xls" zu speichern. Wie ich kann die Bezeichnung "Mappe1" ändern, um einen anderen Namen vorzuschlagen?
Sub SaveAs_mit_Namensvorschlag()
Dim strName As String
On Error GoTo Fehler
strName = "MeinDateiName " & Format(Now, "YYYY-MM-DD hh_mm") 'oder auch Inhalt einer Zelle
ActiveWorkbook.Sheets(2).Move
With Application.FileDialog(msoFileDialogSaveAs)
.ButtonName = "Speichern"
.InitialFileName = strName
If .Show = -1 Then
ActiveWorkbook.SaveAs Filename:=.SelectedItems(1)
End If
End With
Exit Sub
Fehler:
MsgBox "Fehler-Nr.: " & Err.Number & vbLf & Err.Description
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen