|
Du willst eine bereits geöffnete Datei unter neuem Namen speichern?
Dim Pfad As String
Dim newname As String
Application.DisplayAlerts = False
Pfad = Environ("UserProfile") & "\Desktop\"
' oder alternativ:
'Pfad = "C:\dein\Ordner\"
bookName = ActiveWorkbook.Name ' Name der geöffneten Arbeitsmappe besorgen
newname = InputBox("Bitte Ergänzung zum alten Namen eingeben..")
MsgBox bookName
'speichert nun die Datei unter Verwendung des Namen der bereits geöffneten Datei
ActiveWorkbook.SaveAs Filename:=Pfad & bookName & " " & newname, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=True
MsgBox "Gespeichert in" & Pfad & "!"
Application.DisplayAlerts = True
End Sub
|