' **********************************************************************
' 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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen