Datei nicht schließen wenn...
30.09.2005 20:46:57
HansH
folgender Code ist für meine Zwecke bis auf eine "Kleinigkeit" ok. (beim schließen der Datei soll eine fortlaufende Nummer an den Dateinamen angehängt werden)
"Kleinigkeit": Wenn der Dateiname beim schließen bereits besteht und ich deshalb auf die Abfrage ob sie ersetzt werden soll nein oder abbrechen klicke, wird die Datei ohne Änderungen geschlossen. Genau dies soll nicht passieren. Ich möchte noch die Möglichkeit haben etwas zu ändern. In diesem Falle die Nummer in Zelle "A1".
Wie läßst sich dies in den Code einbauen, oder ist der ganze Ansatz schon der falsche?
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
ActiveWorkbook.SaveAs Filename:= _
"D:\Meine_Dateien_neu\Hans\Forderung\Forderung" & Sheets("Forderung").Range("A1").Value & ".xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
False, CreateBackup:=False
If Err.Number > 0 Then MsgBox "Datei wurde nicht gespeichert!"
Application.DisplayAlerts = False
Application.DisplayAlerts = True
End Sub
Schönen Dank schon mal für eure Mühen
Gruß
HansH
Anzeige