VBA-Ereignis "nach Save"

hallo zusammen,
gibt es eine Möglichkeit unter VBA, auf das Ereignis "nach Save" zu triggern?
Hintergrund:
ich habe eine Excel-Vorlage zum erstellen eines Rechnungsblattes.
Diese Vorlage ruft ein VBA-Programm in einer separaten Excel-Datei auf.
Gleichzeitig mit dem Aufruf trägt sich diese neu zu erstellende Rechnung in die
Tabelle "VBA-Programm-Notitzblock" der Excle-Programmdatei ein, in der alle aktuell
mit dem VBA-Programm bearbeiteten Rechnungen enthalten sind
(es können ja mehr als nur eine Rechnung zeitgleich erstelt werden).
Sinn dieser Tabelle ist es, Programm-Variable-Inhalte für eventuell spätere
Programmausführungen zwischenzuspeichern.
Diese Inhalte werden dann bei einem späteren Programmfortsetzung wieder in die
entsprechende Variablen geladen.
Da sich jedoch der Name einer Rechnung beim abspeichern mit "Speichern unter"
verändert, ist es erforderlich den bisher benutzten Namen der Rechnung in der
"Tabelle der aktuell bearbeiteten Rechnungen" abzuändern in den neuen Namen dieser
Rechnung.
Ich habe bisher in VBA nur ein Ereignis "bevor Save" gefunden. ich brauchte aber ein
VBA-Ereignis "nach Save" um die oben beschriebene Funktion abzufangen.
um zu verdeutlichen was ich mit der Beschreibung gemeint habe, habe ich eine abgespeckte
Version der beiden Dateien beigefügt.
Die Dateien sollten laufen wenn diese im Verzeichnis C:\Forum gespeichert werden und die Name erhalten wie unten
Rechnungsvorlage.xlt für https://www.herber.de/bbs/user/65346.xlt
Rechnungsprogramm.xls für https://www.herber.de/bbs/user/65347.xls
vielen Dank
Bernd

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 'Code Application.OnTime Now + TimeSerial(0, 0, 1), "NachSave" End Sub 'in ein Modul *************************************************************** Sub NachSave() MsgBox "mach was" End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Static booCansel As Boolean If Not booCansel Then Cancel = True 'speichern abbrechen booCansel = True If SaveAsUI Then 'wurde speichern unter gewählt? Application.Dialogs(xlDialogSaveAs).Show Else Me.Save End If Call MeinMakro 'Dein Makro nach speichern booCansel = False End If End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Static booCansel As Boolean If Not booCansel Then booCansel = True If SaveAsUI Then 'wurde speichern unter gewählt? Application.Dialogs(xlDialogSaveAs).Show Else Me.Save End If Call MeinMakro 'Dein Makro nach speichern booCansel = False End If If Not booCansel Then Cancel = True: SaveAsUI = False 'speichern abbrechen End Sub

Hallo Tino,
Das Umstellen des Codes hat auch nichts gebracht, deshalb habe ich gestern den ganzen
Tag getestet und Deinem Code noch eine Funktion und ein weiteres Makro hinzugefügt.
(hätte man vielleicht auch einfacher machen können, mir ist aber nichts besseres eingefallen.
Auf jedenfall hat diese Lösung das Schleifen-Problem bei einer ungespeicherten Datei beseitigt
und mein Programm läuft damit einwandfrei.
Vielen dank für Deine Hilfe
Bernd
-----------------------------------------------------------------
Public WB_schließen As Boolean
-----------------------------------------------------------------
Function Frage_Wkb_Save()
Frage_Wkb_Save = MsgBox("Workbook vor dem beenden speichern?", vbYesNoCancel)
End Function
-----------------------------------------------------------------

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Static booCansel As Boolean
If booCansel = False Then
booCansel = True
If SaveAsUI Then
'                                       wurde speichern unter gewählt?
Application.Dialogs(xlDialogSaveAs).Show
Call NachSave 'Dein Makro nach speichern
ElseIf WB_schließen Then
'                                       wird in Workbook_BeforeClose gesetzt
Select Case Frage_Wkb_Save
Case vbYes
Me.Save
Case vbNo
Cancel = True
ThisWorkbook.Saved = True
Case vbCancel
Cancel = True
End Select
Else
Me.Save
End If
booCansel = False
End If
If booCansel = False Then Cancel = True: SaveAsUI = False
End Sub

-----------------------------------------------------------------

Private Sub Workbook_BeforeClose(Cancel As Boolean)
WB_schließen = True
'                                         wird in "Workbook_BeforeSave benötigt"
If ThisWorkbook.Saved = False Then
Workbook_BeforeSave False, False
'                                        aufruf von "Workbook_BeforeSave
End If
If ThisWorkbook.Saved = True Then
'                                       Fall 1: "Frage_Wkb_Save" mit Ja beantwortet
'                                                 "Workbook speichern und  schließen"
'                                                 (gespeichert wird unter Workbook_BeforeSave)
'                                       und
'                                       Fall 2: "Frage_Wkb_Save" mit nein beantwortet
'                                                  "Workbook ungespeichert  schließen"
Call MeinMakroWB_schließen
'                                       Makro zum schließen der Programm-Datei
ElseIf ThisWorkbook.Saved = False Then
'                                        Fall 3: "Frage_Wkb_Save" mit abbrechen beantwortet
'                                              "Workbook nicht speichern und nicht schließen"
WB_schließen = False
Cancel = True
End If
End Sub

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA-Ereignis "nach Save"

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread