Makro BeforeClose Problem

15/08/2009 - 12:51 von Bruno Sutter | Report spam
Hallo Leute
Mir steht wohl wieder einmal einer schwer auf der Leitung. Ich habe das
folgende Makro

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Const Pfad = "C:\Dokumente und Einstellungen\Erlenacker\Eigene
Dateien\Erlenacker\Sicherheitskopien\2008\"
Dim nAntwort%
Dim strFile As String
Dim IntI As Integer
nAntwort = MsgBox("Haben Sie die Daten übertragen und möchten Sie die
Mappe wirklich schliessen", _
vbCritical + vbYesNo)
If nAntwort = 7 Then Cancel = True
ActiveWorkbook.Save
strFile = Pfad & "S-K" & "_" & "Trg" & "_" & Format(Now, "DDMMYY" & "_" &
"hhmmss")
ActiveWorkbook.SaveAs (strFile & ".xls")
End Sub

Nun, wenn ich in der Abfrage auf "JA" drücke, dann ist alles klar. Es
speichert, macht eine Sicherheitskopie und schliesst.
Wenn ich jedoch auf "NEIN" drücke, dann speichert es auch, macht ebenfalls
eine Sicherheitskopie, schliesst aber nicht. Nur ist dann fortan der Pfad
der Sicherheitskopie gespeichert.
Was muss ich am Code veràndern, damit Excel beim Anklicken von "NEIN"
einfach nichts macht, d.h. keine Speicherung, keine Sicherheitskopie, kein
Schliessen. Ich habe dies probiert mit "then exit sub", funktioniert aber
nicht.
Vielen Dank für Eure Hilfe und freundliche Grüsse
Bruno
 

Lesen sie die antworten

#1 Hajo
15/08/2009 - 13:12 | Warnen spam
Hallo Bruno,

Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Const Pfad = "C:\Dokumente und Einstellungen\Erlenacker\Eigene
Dateien\Erlenacker\Sicherheitskopien\2008\"
Dim nAntwort%
Dim strFile As String
Dim IntI As Integer
nAntwort = MsgBox("Haben Sie die Daten übertragen und möchten Sie die
Mappe wirklich schliessen", _
vbCritical + vbYesNo)
If nAntwort = 7 Then
Cancel = True
Else
ActiveWorkbook.Save
strFile = Pfad & "S-K" & "_" & "Trg" & "_" & Format(Now, "DDMMYY" &
"_" & "hhmmss")
ActiveWorkbook.SaveAs (strFile & ".xls")
End If
End Sub


Gruß Hajo
MVP für Microsoft Excel
Betriebssystem Vista Ultimate SP2 und Excel Version2007 SP2
http://Hajo-Excel.de/


"Bruno Sutter" wrote:

Hallo Leute
Mir steht wohl wieder einmal einer schwer auf der Leitung. Ich habe das
folgende Makro

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Const Pfad = "C:\Dokumente und Einstellungen\Erlenacker\Eigene
Dateien\Erlenacker\Sicherheitskopien\2008\"
Dim nAntwort%
Dim strFile As String
Dim IntI As Integer
nAntwort = MsgBox("Haben Sie die Daten übertragen und möchten Sie die
Mappe wirklich schliessen", _
vbCritical + vbYesNo)
If nAntwort = 7 Then Cancel = True
ActiveWorkbook.Save
strFile = Pfad & "S-K" & "_" & "Trg" & "_" & Format(Now, "DDMMYY" & "_" &
"hhmmss")
ActiveWorkbook.SaveAs (strFile & ".xls")
End Sub

Nun, wenn ich in der Abfrage auf "JA" drücke, dann ist alles klar. Es
speichert, macht eine Sicherheitskopie und schliesst.
Wenn ich jedoch auf "NEIN" drücke, dann speichert es auch, macht ebenfalls
eine Sicherheitskopie, schliesst aber nicht. Nur ist dann fortan der Pfad
der Sicherheitskopie gespeichert.
Was muss ich am Code veràndern, damit Excel beim Anklicken von "NEIN"
einfach nichts macht, d.h. keine Speicherung, keine Sicherheitskopie, kein
Schliessen. Ich habe dies probiert mit "then exit sub", funktioniert aber
nicht.
Vielen Dank für Eure Hilfe und freundliche Grüsse
Bruno



Ähnliche fragen