Workbook schließen ohne Rückfrage
Dietmar
ich möchte gerne in der der Tabelle 1 zwei Optionsfelder bedienen, die beide auf Range("N3") verlinken. Wenn in N3 eine "1" steht und anschließend Excel geschlossen wird, soll das Workbook PLUS Excel selbst ohne Rückfrage geschlossen und unter einem vorgegebenem Namen geschlossen werden.
Der Code funktioniert zwar, jedoch noch nicht so wie ich es mir vorstelle:
a) Wenn ich auf >Datei >schließen gehe funktioniert es. Die Excel-Anwendung bleibt dann aber geöffnet.
b) Ich möchte aber auch erreichen, dass die Arbeitsmappe UND die gesamte Excel-Anwendung OHNE Rückfrage geschlossen werden kann. Also wenn ich auf das "Schließen-X" klicke. Dabei gehe ich in diesem Fall davon aus, dass nur die eine Arbeitsmappe geöffnet war.
Der BeforeClose-Befehl wird dann zwar ohne Rückfrage ausgeführt, jedoch erscheint dann doch noch eine Rückfrage.
Mit >Application.Quit Jemand eine Idee?
Vielen Dank.
Dietmar aus Aachen
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
If Worksheets("Tabelle1").Range("N3").Value = 1 Then
ActiveWorkbook.SaveAs Filename:="C:\Eigene Dateien\Test.xls"
Application.DisplayAlerts = True
Else
End If
End Sub
Anzeige