Option Explicit ' Variablendefinition erforderlich
Option Private Module ' damit Makros nicht unter Makros _
erscheinen
'* H. Ziplies *
'* 03.06.06 *
'* erstellt von HajoZiplies@web.de *
'* http://Hajo-Excel.de/
Sub Start()
Dim Ini As Integer
Dim oBtn As CommandBarButton
' Menü löschen
For Ini = CommandBars("Cell").Controls.Count To 1 Step -1
CommandBars("Cell").Controls(Ini).Delete
Next Ini
For Ini = 1 To 5
Set oBtn = Application.CommandBars("Cell").Controls.Add
With oBtn
Select Case Ini
Case 1
.Caption = "Makro1" ' Beschriftung
.OnAction = "Makro1" ' Aktion
Case 2
.Caption = "Makro2"
.OnAction = "Makro2"
Case 3
.Caption = "Makro3"
.OnAction = "Makro3"
Case 4
.Caption = "Makro4"
.OnAction = "Makro4"
Case 5
.Caption = "Makro5"
.OnAction = "Makro5"
End Select
End With
Next Ini
End Sub
Sub Ende()
CommandBars("Cell").Reset ' Kontextmenü zurücksetzen
End Sub
Sub Makro1()
MsgBox "Makro1"
End Sub
Sub Makro2()
MsgBox "Makro2"
End Sub
Sub Makro3()
MsgBox "Makro3"
End Sub
Sub Makro4()
MsgBox "Makro4"
End Sub
Sub Makro5()
MsgBox "Makro5"
End Sub
Caption = Range("V4")