' **********************************************************************
' 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