|
Hallo liebe Mitglieder, ich hoffe es geht euch gut.
Ich habe eine Frage, vllt. kann mir jemand weiterhelfen.
Ich habe Zellen in einem Bereich in denen Wörter mit der Schriftfarbe .Font.Color = RGB(245, 55, 60) stehen. Diese Wörter sind für meine Kollegen allerdings nur Orientierungshilfen und sollen überschrieben werden. Der neu eigetragene Text, oder die Zahl, soll dann aber nicht in Rot "RGB(245, 55, 60)" sondern in Grün in der Zelle stehen ".Font.Color = RGB(0, 255, 0)".
Ich hatte das bislang mit einem | Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) | -Ereignis umgesetzt, aber dieses ständige Doppelgeklicke ist auf Dauer schon etwas nervig.
Gibt es einen Weg das der überschriebene Text direkt in grüner Schriftfarbe angezeigt wird (ohne Doppelklick)?
Vielen Dank
Dana
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("G8:G15, G17:G24")) Is Nothing Then
With Intersect(Target, Range("G8:G15, G17:G24"))
.Font.Color = RGB(0, 255, 0)
End With
Cancel = True
End If
End Sub
|