Ich glaub ich steh grad ein wenig auf dem Schlauch.
Gibt es eine Möglichkeit ein Ereignis "Before_save" für ALLE Excel-Dateien auszuführen?
Konkret möchte ich eine Fussnote in jede Datei schreiben, die gespeichert wird.
Danke schon mal
' **********************************************************************
' Modul: DieseArbeitsmappe Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************
Option Explicit
Private Sub Workbook_Open()
initAppClass
End Sub
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************
Option Explicit
Public myApp As clsAppEvents
Public Sub initAppClass()
Set myApp = New clsAppEvents
Set myApp.myXLApp = Application
End Sub
' **********************************************************************
' Modul: clsAppEvents Typ: Klassenmodul
' **********************************************************************
Option Explicit
Public WithEvents myXLApp As Excel.Application
Private Sub myXLApp_WorkbookBeforeSave(ByVal Wb As Workbook, ByVal SaveAsUI As Boolean, Cancel As Boolean)
'Hier dein Code zum erstellen der Fußnote
End Sub