Excel und VBA: Formeln, Programmierung, Lösungen

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

    

Beiträge aus dem Excel-Forum zu den Themen Menue und Control