Rechtsklick-Ereignisfehler

Question

Das Rechtsklick-Ereignis, das ich erstellt habe, zeigt die Fehlermeldung "Die Prozedurdeklaration stimmt nicht mit der Beschreibung des Ereignisses oder der Prozedur mit dem gleichen Namen überein".

Mein Ziel ist es, mit der rechten Maustaste auf eine Zelle zu klicken und die Zählung einer Spalte aus einer anderen Blatteingabe in die Zielzelle einzugeben.

Was ist mein Fehler, den ich vermisse?

Sub Worksheet_BeforeRightClick(ByVal Target As Range) 
Dim wb As Workbook 
Dim i As Long 

Set wb = Workbooks("Calc.xlsm") 

EventState = Application.EnableEvents 
Application.EnableEvents = True 

Target.Address = Application.count(wb.Sheets("Carrier").Range("O:O")) 


End Sub 

Answer 1

Die Fehlermeldung ist ziemlich klar. Der Prototyp des Ereignishandlers entspricht nicht dem, was in Excel erwartet wird. Ändern Sie es in:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) 

Sie können die Signatur von Ereignishandlern nicht ändern.