Supportnet Computer
Planet of Tech

Supportnet / Forum / Tabellenkalkulation

Makro beim schließen von Excel ausführen





Frage

Hallo Leute, wie kann ich erreichen, dass beim schließen von Excel (egal ob über Menü oder das Fenster) VB code abläuft, welcher den User fragt ob die Daten gespeichert und zusätzlich noch auf Diskette gespeichert werden sollen? Danke schon mal für Eure Zeit und Mühe viele Grüße Eleve

Antwort 1 von Event

Hallo

Meinst Du etwa
sub auto_close()
Msgbox "Sichern auf Diskette? "
end sub


Gruß

Antwort 2 von JoeKe

Hallo Eleve,

oder so:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Speichern As Variant
Speichern = MsgBox("Soll die Datei auf Diskette und auf HDD gespeichert werden?", _
vbYesNo, Speichern)
If Speichern = vbYes Then
ActiveWorkbook.SaveAs Filename:="A:\Speichern.xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
ActiveWorkbook.SaveAs Filename:= _
"C:\Dokumente und Einstellungen\user\Desktop\Speichern.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
Else: Exit Sub
End If
End Sub


Die Pfade und der Dateiname müssen allerdings noch von dir angepasst werden.


MfG

JöKe

Antwort 3 von Eleve

Perfekt!

Vielen Dank für Eure superschnelle Hilfe - ich habe JöKes Vorschlag umgesetzt.

Spitze.

Eleve

Antwort 4 von JoeKe

Hi Eleve,

danke dir für deine Rückmeldung.

CU

JöKe

Ich möchte kostenlos eine Frage an die Mitglieder stellen:


Ähnliche Themen:


Suche in allen vorhandenen Beiträgen: