Makro funktioniert nicht richtig
24.04.2015 17:10:19
mike49
ich möchte erreichen, dass bei Rechtsklick im Bereich E8:E38 das Wort Urlaub und im Bereich F8: _ F38 das Wort 1/2 Urlaub rot eingetragen wird. Mit meinem kleinen Makro funktioniert's nicht:
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Union(Range("E8:E38"), Range("F8:F38"))) Is Nothing Then
Cancel = True
If Target = "" Then
Target = IIf(Target.Column = 5, "Urlaub", "1/2 Urlaub")
Target.Font.Color = -16776961
Else
Target = ""
End If
End If
End Sub
Kann jemand helfen?
Gruß
mike49