kleines Makro abändern
15.11.2013 14:39:20
mike49
ich habe dieses kleine Makro im Tabellenblatt:
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("B8:AF30")) Is Nothing Then
Cancel = True
If Target = "" Then
Target = "U"
Else
Target = ""
End If
End If
End Sub
Wie kann man erreichen, dass der Eintrag "U" rot dargestellt wird?
Gruß
mike49