Guten MORGEN,
Habe ein Problem:
wenn ich mein selbsterstelltes Dialog schließe, schließt automatisch Excel.
Wenn ich über das Kreuz oben rechts gehe, schließ mein Dialog, ich möchte aber das das Makro ausgeführt wird und Excel geschlossen wird.
Ist das möglich ???
Hier mein Makro:
Sub A_NWDlg_schließen()
Application.ScreenUpdating = False
Dim NWDlg As Object '=Bearbeitungsdialog
Set NWDlg = DialogSheets("NWDlg")
NWDlg.Hide
Sheets("Aktenblatt").Visible = False
Sheets("Kulanzblatt").Visible = False
Sheets("Auftragsblatt").Visible = False
Sheets("NWDlg").Visible = False
Sheets("GF-Tab").Visible = False
Sheets("NWDlg").Visible = False
Sheets("DlgKalk").Visible = false
Sheets("Prov-Blatt").Select
Range("c1").Select
Application.DisplayAlerts = False ' Sicherheitsabfrage
unterdrücken
ActiveWorkbook.SaveAs Filename:="C:\1_PKW_Verkauf\ _
1-NW-PLK.XLS", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="",
_ReadOnlyRecommended:=False _
, CreateBackup:=False
Application.Visible = True
Application.Quit
Application.DisplayAlerts = False ' Sicherheitsabfrage
unterdrücken
Application.ScreenUpdating = True
End Sub
Mit freundlichen Gruss
Walter