Hallo Jörg,
genau so sollte es sein! Super.
Jetzt kannst du im Klassenmodul clsExcelApp das Makro mExcelApp_WorkbookOpen so umzuschreiben, dass es das macht, was du möchtest.
Dabei darfst du die Zeile
Private Sub mExcelApp_WorkbookOpen(ByVal Wb As Workbook)
nicht verändern, sondern lediglich den Code innerhalb dieses Makros ändern.
Im Modul "DieseArbeitsmappe" bitte einfach die Zeile
MsgBox "Addin aktiv (open)"
löschen, ich hatte vergessen, sie rauszunehmen. In diesem Modul solltest du ansonsten keine Änderungen vornehmen.
kommst du klar?
Grüße, Ulrich
|