Excel VBA


Tastenbelegungen ermitteln

Die folgende Prozedur ermittelt alle Tasten, die an Schaltflächen von 
Symbolleisten zugewiesen wurden.

Unberücksichtigt bleiben Kombinationen wie Alt+x+y.
Ebenso fehlen in der Liste Tasten wie F5, die nicht an eine
Schaltfläche gebunden sind.

Ausgabe
Spalte A:	Menü- oder Symbolleiste
Spalte B:	Tastenkombination
Spalte C:	Name der Schaltfläche
Spalte D:	Beschreibung
Spalte C:	ID

Sub ShowShortcuts()
   Dim Ctrl As CommandBarControl
   Dim i As Integer

   Application.ScreenUpdating = False
   On Error Resume Next
   i = 1
   For Each Ctrl In CommandBars.FindControls
      If Ctrl <> "" Then
         Cells(i, 1) = Ctrl.Parent.Name
         Cells(i, 2) = Ctrl.accKeyboardShortcut
         Cells(i, 3) = Ctrl.accName
         Cells(i, 4) = Ctrl.accDescription
         Cells(i, 5) = Ctrl.ID
         i = i + 1
      End If
   Next Ctrl
   Columns("A:E").AutoFit
   Application.ScreenUpdating = True
End Sub