Maustaste

Sub u()
ActiveCell = "U"
End Sub
Sub k()
ActiveCell = "K"
End Sub
Sub f()
ActiveCell = "F"
End Sub

Option Explicit
Private Sub Workbook_Deactivate()
Application.CommandBars("Cell").Reset
End Sub
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Dim oBtn As CommandBarButton
Dim i As Integer
' Kontextmenü zusammenbauen
With Application.CommandBars("Cell")
Do While .Controls.Count > 0
.Controls(1).Delete
Loop
End With
For i = 1 To 3
Set oBtn = Application.CommandBars("Cell").Controls.Add
With oBtn
Select Case i
Case 1
.Caption = "U = Urlaub"
.OnAction = "u"
Case 2
.Caption = "K = Krank"
.OnAction = "k"
Case 3
.Caption = "F = Freizeit"
.OnAction = "f"
End Select
End With
ActiveCell = i
Next i
End Sub