Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Bei Aktivierung einer Arbeitsmappe ShortCut zuweisen

Gruppe

Activate

Problem

Bei Aktivierung dieser Arbeitsmappe soll dem ShortCut Strg+x ein Makro zugewiesen und bei Deaktivierung soll die Zuweisung wieder entfernt werden.

Lösung
Geben Sie den Ereigniscode in das Klassenmodul der Arbeitsmappe ein.

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