Makro beim Beenden von Excel automatisch ausführen



Excel-Version: Versionsunabhängig
nach unten

Betrifft: Makro beim Beenden von Excel automatisch ausführen
von: mb
Geschrieben am: 08.07.2002 - 14:41:46

Hi,

ich bräuchte ein Script/Makro/etc. das beim Beenden von Excel das File einmal selbst Lokal und zusätzlich eine Kopie auf ein anderes Laufwerk (Netzlaufwerk) speichert.

Jetzt meine Fragen.

Gibt es die möglichkeit ein solches Script zu schreiben?
(Wenn ja bitte Hilfestellung oder fertiges Script)

Kann man das Script automatisch beim Beenden von Excel ausführen lassen oder muss man das Makro manuell ausführen?


mfg mb

thx im vorraus


nach oben   nach unten

Re: Makro beim Beenden von Excel automatisch ausführen
von: Kl@us-M.
Geschrieben am: 08.07.2002 - 15:09:00

Hallo mb (einen Vornamen hast Du ja leider nicht !?!),
schreibe folgenden Code in "Diese Arbeitsmappe":


Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
    ChDir "L:\"
    ActiveWorkbook.SaveAs Filename:="L:\Dein Dateiname.xls", FileFormat:=xlNormal, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=True
    ChDir "C:\Dokumente und Einstellungen\Eigene Dateien\Dein Ordner"
    ActiveWorkbook.SaveAs Filename:="C:\Dokumente und Einstellungen\Eigene Dateien\Dein Ordner\Dein Dateiname.xls", FileFormat _
        :=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended _
        :=False, CreateBackup:=True
End Sub

Gruss
Klaus-Martin

nach oben   nach unten

Re: Makro beim Beenden von Excel automatisch ausführen
von: Peter
Geschrieben am: 08.07.2002 - 15:10:03

Hi mb,

könnte ab Excel 97 so gehen:
Mit Alt-F11 in die VBA-Entwicklungsumgebung gehen
Im Projekt-Explorer Doppelklick auf DieseArbeitsmappe
und folgendes Makro eingeben:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Save
ActiveWorkbook.SaveAs "C:\...\MeineDatei.xls"
End Sub

In Versionen vor Excel 97 würde ich es mit einem Auto_close - Makro versuchen.
Gruss
Peter

nach oben   nach unten

Re: Makro beim Beenden von Excel automatisch ausführen
von: mb
Geschrieben am: 08.07.2002 - 15:13:28

vielen dank für die scripts,werd sie ausprobieren.

p.s. vornamen hab ich nich,sparmaßnahmen des arbeitgebers


nach oben   nach unten

Re: Makro beim Beenden von Excel automatisch ausführen
von: mb
Geschrieben am: 08.07.2002 - 15:17:11

vielen dank für die scripts,werd sie ausprobieren.

p.s. vornamen hab ich nich,sparmaßnahmen des arbeitgebers


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Makro beim Beenden von Excel automatisch ausführen"