Gruppe
Ereignis
Problem
Bei Aktivierung dieser Arbeitsmappe soll dem ShortCut Strg+x ein Makro zugewiesen und bei Deaktivierung soll die Zuweisung wieder entfernt werden.
ClassModule: DieseArbeitsmappe
Private Sub Workbook_Activate()
Application.MacroOptions macro:="MeinMakro", _
Description:="", ShortcutKey:="x"
End Sub
Private Sub Workbook_Deactivate()
Application.MacroOptions macro:=ThisWorkbook.Name & "!MeinMakro", _
Description:="", ShortcutKey:=""
End Sub
StandardModule: basMain
Sub MeinMakro()
MsgBox "Ich bin ein Makro!"
End Sub