ich möchte wenn ich die F11-Taste drücke eine Funktion ausführen.
Wer kann mir ein paar zeilen code dafür geben?
besten dank im voraus
gruß
kalle
Private Sub Workbook_Activate()
Application.OnKey "{F11}", "Testmakro"
End Sub
Private Sub Workbook_Deactivate()
Application.OnKey "{F11}"
End Sub
Private Sub CommandButton1_Click()
Testmakro
End Sub
Sub Testmakro()
MsgBox "Hallo!"
'oder halt dein Code
End Sub
Private Sub Workbook_Activate()
Application.OnKey "{F11}", "Tt"
End Sub
Private Sub Workbook_Deactivate()
Application.OnKey "{F11}"
End Sub