habe ein VB-Makro (siehe unten) läuft prima, möchte aber das bei
bzw. vor Schließen kompl.Excel abgefragt wird so das evtl. nur die
Datei entsprechend geschlossen wird.
Ferner sollte ( ist das Möglich ) eine Eieruhr laufen oder so ein Balken solange das Schließen Makro läuft.
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 =
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 ' hier wird Excel geschlossen
Application.DisplayAlerts = False ' Sicherheitsabfrage unterdrücken
Application.ScreenUpdating = True
End Sub
Mit freundlichen Gruß
Walter