Eigenes Menü mit rechter Maustaste
09.01.2010 19:39:48
Heinz H
Hallo Leute
Ich habe ein Makro,wo mit der rechten Maustaste ein eigenes Menü erscheint.
Funkt. auch super. Nur sollte es in L5:L35 erscheinen, in anderen Spalten sollte die rechte Maustaste deaktiviert werden.
Könnte mir bitte jemand helfen ?
Gruß
Heinz
Sub EditContext()
On Error Resume Next
ResetContext
With Application.CommandBars("Cell")
Do While .Controls.Count > 0
.Controls(1).Delete
Loop
Set oBtn1 = .Controls.Add
End With
With oBtn1
.BeginGroup = True
.Caption = "Bildungsurlaub"
.OnAction = "Bildungsurlaub1"
.FaceId = 81
End With
End Sub
Sub ResetContext()
Application.CommandBars("Cell").Reset
End Sub
Sub Bildungsurlaub1()
Application.ScreenUpdating = False
For Each rng In Selection
If rng.Row > 5 And rng.Row < 53 And rng.Offset(0, -10) <> "" Then rng.Value = " _
Bildungsurlaub"
Next
Application.ScreenUpdating = True
End Sub