Sub NeuerEintrag()
Dim i As Integer
Dim i_Hilfe As Integer
Dim e As Integer
Dim MenüNeu As CommandBarControl
Dim Mb As CommandBarControl
Dim unterm As CommandBarPopup
For e = 1 To Application.CommandBars(1).Controls.Count
Next e
i = Application.CommandBars(1).Controls.Count
i_Hilfe = Application.CommandBars(1).Controls(i).Index
Set MenüNeu = Application.CommandBars(1). _
Controls.Add(Type:=msoControlPopup, _
Before:=i_Hilfe, temporary:=True)
MenüNeu.Caption = "2-stündl. Überprüfung aktuell"
Set Mb = MenüNeu.Controls.Add _
(Type:=msoControlPopup)
With Mb
.Caption = "Überprüfungen aktivieren"
.BeginGroup = True
End With
Dim x As Long
For x = 1 To ThisWorkbook.Sheets.Count
With Mb.Controls.Add(Type:=msoControlButton)
.Caption = ThisWorkbook.Sheets(x).Name
.FaceId = 59
.OnAction = "aktivieren"
End With
End If
Next x
Set Mb = MenüNeu.Controls.Add _
(Type:=msoControlPopup)
With Mb
.Caption = "Überprüfungen ausblenden"
.BeginGroup = True
End With
With Mb.Controls.Add(Type:=msoControlButton)
.Caption = "Alle Tabellen schützen"
.FaceId = 1019
.OnAction = "ausblenden"
End With
End Sub