Aktion wenn irgendeine Datei geöffnet wi
08.12.2020 01:46:44
MLoew
vorab: ich hab zu meinem Problem folgende Antwort gefunden
https://www.herber.de/forum/archiv/160to164/160552_Application_Ereignisse.html.
Nur ich komm nicht klar damit.
Hier mein Problem:
Ich hab ein AddIn. Wenn jetzt eine Datei mit einem bestimmten Dateinamen geöffnet wird soll eine Aktion ablaufen.
Lt. dem alten Post muss ich das machen:
In ein normales Modul:
Public AppObject As New clsEvents
In ein Klassenmodul namens clsEvents:
Public WithEvents ap As Application
Private Sub ap_WorkbookBeforeClose(ByVal Wb As Workbook, Cancel As Boolean)
Dein Code...
End Sub
Die Zuweisung
Set AppObject.ap = Application
gehört in das WorkbookOpenEreignis.
Mit meinen Worten
1:Ich öffne irgendein normales Modul
Nach Option Explicit kommt der Text
Public AppObject As New clsEvents
2: Ich erstelle ein neues Klassenmodul mit dem Name clsEvents
Da kommt der Text rein:
Public WithEvents ap As Application
Private Sub ap_WorkbookBeforeClose(ByVal Wb As Workbook, Cancel As Boolean)
msgbox ("Aktion ausführen").
End Sub
3: Unter Diese Arbeitsmappe wird folgender Text reingepackt
Private Sub Workbook_Open()
Set AppObject.ap = Application
End Sub
Nur es kommt keine MSGBOX als Kontrolle.
Hat jemand ne Idee, was ich falsch mache bzw gibt es einen anderen (besseren) Weg?
Danke euch.
Gruß Markus