Eintrag über Makro in farbiger Schrift
29.11.2012 22:35:02
mike49
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
Anzeige