diesen Makro habe ich nicht selber geschrieben, daher kann ich ihn auch nur teilweise nachvollziehen. Ich konnte ihn für meine gebrauchte Funktionen ändern - das klappt auch, bis zu einen gewissen Punkt.
Sub KontextmenüErgänzen()
Dim C, c1, c2, c3 As CommandBarControl
Dim S, s1, s2, s3 As CommandBarControl
Dim menSpalte As Object
'Kontextmenü Wiedervorlage
With CommandBars("Cell").Controls _
.Add(Type:=msoControlPopup, temporary:=False)
.Caption = "Datum"
.BeginGroup = True
End With
Set C = CommandBars("cell").Controls("Datum")
Set c1 = C.Controls.Add(Type:=msoControlButton)
c1.Caption = "Heute"
'*****************************************************************
'hier brauche ich eine weitere Unterteilung für
'Std. 01 - 06
'Std. 07 - 12
'Std. 13 - 18
'Std. 19 - 24
'*****************************************************************
c1.OnAction = "Std. 01 - 06"
Set c2 = C.Controls.Add(Type:=msoControlButton)
c2.Caption = "Morgen"
c2.OnAction = "Morgen"
End Sub
Sub KontextmenüZurücksetzen()
Application.CommandBars("Cell").Reset
End Sub
Ich weiß nicht ob es geht, eine weiter Verschachtelung einzubauen ?!
Gruß und schöne Ostern
Peter