KlassenModul
Hans
ich leite einige Ereignise (z.B. OnSheetCalculate) über eine Klasse um:
Public WithEvents app As Application
Private Sub OnSheetCalculate(ByVal xSheet As Object)
If Not NoUpdate Then Senden "", ActiveWorkbook.Name
End Sub
Private Sub app_SheetCalculate(ByVal Sh As Object)
OnSheetCalculate Sh
End Sub
Vielen Dank für eure viel geschätzte Hilfe
Gruß
Hans