Office: Application.OnKey

Hallo,

ich möchte in meiner VBA Klasse über Application.OnKey eine Sub aufrufen, aber Excel sagt mir, dass es das Makro nicht finden kann.

Code:

Application.OnKey.("^{t}", "Sub1")

Public Sub Sub1
....
End Sub

:)

 

Hi,

nimm mal einen anderen Namen als Sub1, dann funktioniert es.

 

Funktioniert dann leider auch nicht.

Noch ein paar Infos:
In meinem Konstruktor setzte ich, dass Strg+t die "Sub1" aufrufen soll.
Unter dem Konstruktor steht direkt die Sub1.

 

Hi,

in meinem Testszenario funktioniert es so:

Code:

 

Okay, danke für deine Mühe.