Anzeige
Archiv - Navigation
1288to1292
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Speichern unter... aus Before Close Probleme!!!

Speichern unter... aus Before Close Probleme!!!
14.12.2012 10:30:03
Michael
Hallo Zusammen,
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Speichern unter... aus Before Close Probleme!!!
14.12.2012 13:34:23
Reburg
Hallo Michael,
sollte so funktionieren, mußt aber den Dateinamen per Hand eingeben. Vorschlag: hänge an den Dateinamen nur Datum und Zeit dran, dann könnte man es automatisieren.
Cancel = True
Filename = Application.GetSaveAsFilename(InitialFileName:="", _
filefilter:="Excel Files (*.xls), *.xls", _
Title:="Abrbeitspapier")
Application.EnableEvents = False
ThisWorkbook.SaveAs Filename:=Neuer_Dateiname
Application.EnableEvents = True

AW: Speichern unter... aus Before Close Probleme!!!
17.12.2012 11:41:26
Michael
Vielen Dank für deine Hilfe. Hab das Problem inzwischen anderst gelöst.
Grüße Michael
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige