VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Bei Aktivierung einer Arbeitsmappe ShortCut zuweisen

Gruppe

Ereignis

Bereich

Activate

Thema

Bei Aktivierung einer Arbeitsmappe ShortCut zuweisen

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

    


Beiträge aus dem Excel-Forum zu den Themen Ereignis und Activate