ich habe ein kleines Makro, das bei drücken der rechten Maustaste "Urlaub" in die Zelle einträgt. Wie kann man erreichen, dass das Wort in roter Schrift erfolgt?
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("G7:G42")) Is Nothing Then
Cancel = True
Target = IIf(Target = "", "Urlaub", "")
End If
End Sub
Gruß
mike49