Herbers Excel-Forum - das Archiv

Anzeige während des schließens ?

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Anzeige während des schließens ?
von: walter

Geschrieben am: 27.02.2005 13:39:27
Hallo Zusammen,
habe folgendes Makro:
Private Sub Schließen_Click()
Application.ScreenUpdating = False
Dim Verzeichnis As String
Verzeichnis = "c:\1_PKW_Verkauf"
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
Range("A1").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios _
:=True, Password:="wwpa"
Dim Antwort
Antwort = MsgBox("Letzte Warnung !!!      Beenden >>> JA  drücken" & _
Chr(13) & Chr(13) & "                     oder" & Chr(13) & Chr(13) & _
"Datei OFFEN lassen, für späteres arbeiten ?     dann  >>>  NEIN drücken", vbCritical + vbYesNo)
If Antwort = vbYes Then
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
Worksheets("Prov-Blatt").Select
Range("A1").Select
ActiveWorkbook.SaveAs Filename:="C:\1_PKW_Verkauf\1-NW-PLK-VB.XLS", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
ActiveWorkbook.Close
''' ??? geht nicht>>> MsgBox "Bitte warten... Datei wird gespeichert !"
Else
Unload Me
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("Auftragsblatt").Visible = False
Sheets("GF-TAB-Neu").Visible = False
If Worksheets("Kulanzblatt-VK").Visible = True Then
Worksheets("Kulanzblatt-VK").Select
Range("A40").Select
Worksheets("Kulanzblatt-VK").Unprotect ("wwpa")
Sheets("Kulanzblatt-VK").Visible = False
End If
Worksheets("Prov-Blatt").Select
Range("A1").Select
End If
Sheets("Kulanzblatt-VK").Visible = False
Application.ScreenUpdating = True
End Sub

Da die Datei sehr groß ist, möchte ich beim schließen eine MsgBox offen lassen
oder einen Balken, bis die Datei geschlossen ist ?
Geht das ???
Gruß Walter
Bild

Betrifft: AW: Anzeige während des schließens ?
von: Matthias G

Geschrieben am: 27.02.2005 14:19:59
Hallo Walter,
unter Excel 97 geht noch kein nichtmodales Userform, deshalb musst du den Code ins Userform-Modul selbst packen:
Also ein neues Userform erstellen, das die Speichermeldung anzeigt, und diesen Code:
Private Sub UserForm_Activate()
ActiveWorkbook.SaveAs Filename:="C:\1_PKW_Verkauf\1-NW-PLK-VB.XLS", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
ActiveWorkbook.Close
Unload Me
End Sub
der Ausruf vom Schließen-Knopf aus dann so:
'------------------------------------------------------------------------------
UserForm_Speichern.Show
Balken geht meines Wissen (leider) nicht. Du musst das der Statusleiste überlassen. Gruß Matthias
Bild

Betrifft: Danke ...^^
von: walter
Geschrieben am: 27.02.2005 14:27:17
Hallo Matthias,
Danke für den Tip.
Vielleicht hat noch jemand eine Idee.
Gruß Walter
Bild

Betrifft: Habe auch eine Idee... oder
von: walter

Geschrieben am: 27.02.2005 14:39:18
Hallo Matthias,
habe folgendes eingebaut.
MsgBox " Bitte warten... Datei wird gespeichert !", _
vbOKOnly + vbInformation, "Error !!!"
ActiveWorkbook.Close
das funktioniert, wenn ich jetzt OK drücke ist die Datei gespeichert!
Frage:
Kann man nicht die MSGBox nach ca. 5 sekunden schließen ?
Gruß Walter

Bild

Betrifft: AW: Habe auch eine Idee... oder
von: Horst

Geschrieben am: 27.02.2005 14:49:01
Betrifft: AW: MsgBox für 3 Sek. anzeigen?
von: Werner

Geschrieben am: 17.12.2003 17:53:33
Hallo Heiner,
Versuch mal so:
Sub MsgBox3Sekunden()
Dim WsShell
Dim intText As Integer
Set WsShell = CreateObject("WScript.Shell")
intText = WsShell.Popup("Diese Meldung wird nach 3 Sekunden geschlossen.", 3 _
, "Automatisch...")
' Die 3 in der letzten Zeile gibt die Dauer der Öffnung an.
End Sub

Bild

Betrifft: Danke
von: walter
Geschrieben am: 27.02.2005 15:08:13
Hallo Heiner,
Danke war ein Super Tip !
Gruß Walter
 Bild
Excel-Beispiele zum Thema "Anzeige während des schließens ?"
Anzeigen von Werten und Formeln UserForm in Abhängigkeit einer RefEdit-Auswahl anzeigen
Eingangsbildschirm anzeigen Fortschrittsanzeige in Statusleiste
Die tatsächliche Anzeige eines Zellinhaltes per VBA abrufen Userform in der Entwicklungsumgebung anzeigen
Ein Bild sekundenlang anzeigen lassen Laufwerke im Dialog zur Auswahl anzeigen lassen
Anzeige der Formel mit Quellblattangabe ComboBox in Abhängigkeit von einer CheckBox anzeigen