ich habe eine Datei die ca. 12 - 15 sek. zum speichern dauert.
Ich möchte während des speichern eine MSGBox oder etc. "tehen" haben.
Hier mein Makro: und wo plazieren?
Private Sub Schließen_Click()
Application.ScreenUpdating = False
ComboBox3.SetFocus
With ComboBox3
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
Dim Verzeichnis As String
Verzeichnis = "c:\1_PKW_Verkauf"
Dim Antwort
Antwort = MsgBox(" Beenden >>> JA drücken" & _
Chr(13) & Chr(13) & " oder" _
& Chr(13) & Chr(13) & _
"Datei OFFEN lassen, für späteres arbeiten ? " & Chr(13) & Chr(13) & _
" dann >>> NEIN drücken ", vbYesNo + vbQuestion, " Hinweis !")
If Antwort = vbYes Then
'----------- erst Datenbank schliessen ----------------------------------------
Windows("1-NW-PLK-Datenbank.xls").Activate
Range("D5").Select
Application.DisplayAlerts = False ' Sicherheitsabfrage unterdrücken
ActiveWorkbook.SaveAs Filename:="C:\1_PKW_Verkauf\1-NW-PLK-Datenbank.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWorkbook.Close
Windows("1-NW-PLK-VB.xls").Activate
Worksheets("Prov-Blatt").Select
Range("A1").Select
Worksheets("Prov-Blatt").Unprotect ("wwpa") 'schutz aufheben
Columns("A:A").Select
Selection.ColumnWidth = 120
Columns("B:B").Select
Range("B2").Activate
ActiveWindow.FreezePanes = True
Columns("A:A").Select
Range("A2").Activate
Selection.ColumnWidth = 170
Worksheets("Prov-Blatt").ScrollArea = "A1:A30" 'Zeilen bis sperren
Worksheets("Prov-Blatt").Select
Range("A1").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios _
:=True, Password:="wwpa"
Worksheets("Prov-Blatt").Select
Range("A1").Select
ChDir "C:\1_PKW_Verkauf"
ActiveWorkbook.SaveAs Filename:="C:\1_PKW_Verkauf\1-NW-PLK-VB.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
'------------------------------------
Worksheets("Kulanzblatt-VK").Select
Range("A1").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios _
:=True, Password:="wwpa"
Worksheets("GF-TAB-Neu").Select
Range("A1").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios _
:=True, Password:="wwpa"
Worksheets("Auftragsblatt").Select
Range("A1").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios _
:=True, Password:="wwpa"
Sheets("Kulanzblatt-VK").Visible = False
Sheets("Auftragsblatt").Visible = False
Sheets("GF-TAB-Neu").Visible = False
'---- so ?
MsgBox "Bitte warten... Datei wird gespeichert ! " & Chr(13) _
, vbInformation, " Hinweis !"
'muß aber wegdrücken, sonst schließt nicht !!!!!!!!!!!!!!!!!
ActiveWorkbook.Close
End If
Gruß Walter mb