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
Gruß
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
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
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
danke dir für deine Rückmeldung.
CU
JöKe