Frage zu Application.OnKey
Matthias
kann man Application.OnKey nicht mit den Ziffern 0 bis 9 der Tastatur belegen ?
Folgender Code funktioniert einwandfrei:
Tabelle1
Private Sub Worksheet_Activate()
Application.OnKey "^{F1}", "MyProcedur1"
Application.OnKey "^{F2}", "MyProcedur2"
Application.OnKey "^{F3}", "MyProcedur3"
End Sub
Private Sub Worksheet_Deactivate()
Application.OnKey "^{F1}"
Application.OnKey "^{F2}"
Application.OnKey "^{F3}"
End Sub
Sub MyProcedur1()
MsgBox "Strg+F1 gedrückt"
End Sub
Sub MyProcedur2()
MsgBox "Strg+F2 gedrückt"
End Sub
Sub MyProcedur3()
MsgBox "Strg+F3 gedrückt"
End Sub
also Application.OnKey "^{1}", "MyProcedur1"
Wo hab ich den Denkfehler, oder geht das nicht ?
Gruß Matthias
Anzeige