Gruppe
Menue
Problem
In der Arbeitsblatt-Menüleiste soll das Format-Menü gelöscht und der ShortCut für das Daten-Menü auf t gesetzt werden.
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