bedingte formatierung
11.08.2005 09:12:23
tina
ich habe alle drei möglichkeiten der bedingten formatierung ausgeschöpft und wollte mir nun mit folgendem code eine weitere ermöglichen.
hier der code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.FormulaR1C1 = "j" Then
ActiveCell.FormulaR1C1.Font.ColorIndex = 5
End If
End Sub
zuerst hat der code funktioniert, es sei denn ich bin in die zelle zurückgegangen in der schon ein "j" stand, da hat er gemeckert.
Object erforderlich
jetzt macht der code gar nichts mehr
kann mir da jemand helfen
vielen lieben dank
gruss tina
Anzeige