Hallo

Ich möchte ein Excel-AddIn schreiben, bei dem bei einem bestimmten Tastendruck eine Routine aufgerufen wird.

Mit dem alten Excel-VBA hat das so ausgeschaut.

Private Sub Worksheet_Activate()
     Application.OnKey "{ENTER}", "CursorWeitersetzen"
     Application.OnKey "{RETURN}", "CursorWeitersetzen"
End Sub

Mit .Net würde das etwa so aussehen.

Dim ExApp As Excel.Application = Globals.ThisWorkbook.ThisApplication
Dim Key As String = "{ENTER}"
Dim Procedure As Object = "CursorWeitersetzen"
ExApp.OnKey(Key, Procedure)
       
Nun müßte
Sub CursorWeitersetzen
aber als Makro im Excel-Workbook stehen.

Ich möchte aber das
Sub CursorWeitersetzen  in der Class ThisWorkbook steht, weil ich die Parameter posx posy übergeben muß.

Dim AktiveZelle As Excel.Range = ExApp.ActiveCell
Dim posx As Integer = AktiveZelle.Column
Dim posy As Integer = AktiveZelle.Row

Kann mir jemand weiterhelfen?

Gruß Bob