bin hier fast am verzweifeln und hoffe Ihr könnt mir weiterhelfen.
Zu meinem Problem:
Ich möchte beim Speichern und beim Schließen der Mappe,diese immer unter einem neuen Dateinamen speichern. Dies funktionert auch wenn ich nur auf den "Speicher"-Button drücke. Sobald ich aber auf Schließen (Kreuz) drücke, speichert Excel mir die Datei nicht.
Kann mir jemand weiterhelfen?
Über Eure Hilfe wäre ich sehr dankbar.
Code:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Save
Cancel = True
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = True
Neuer_Dateiname = Application.GetSaveAsFilenam(InitialFileName:="test.xls", fileFilter:= _
"Excel-Dateien (*.xls), *.xls")
Application.EnableEvents = False
ThisWorkbook.SaveAs Filename:=Neuer_Dateiname
Application.EnableEvents = True
'MsgBox "Die Datenbank wurde aktualisiert." & vbCrLf & "Bitte verteilen Sie die _
aktuelle Version an die Anwender."
End Sub