Gruppe
Menue
Bereich
Control
Thema
Format-Menü löschen und ShortCut umbenennen
Problem
In der Arbeitsblatt-Menüleiste soll das Format-Menü gelöscht und der ShortCut für das Daten-Menü auf t gesetzt werden.
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: Modul1
Sub EditCmdBar()
On Error GoTo ERRORHANDLER
With Application.CommandBars("Worksheet Menu Bar")
.Controls("Daten").Caption = "Da&ten"
.Controls("Format").Delete
End With
Exit Sub
ERRORHANDLER:
MsgBox "Ein Element wurde nicht gefunden!"
End Sub
Sub Zurueck()
Application.CommandBars("Worksheet Menu Bar").Reset
End Sub