Suche Wert
03.05.2002 09:04:41
Detlef
ich möchte in Spalte "D" alle Einträge
die Nicht OK sind mit der Textfarbe rot
formatieren. Mit dem untenstehen Code
bekomme ich die Fehlermeldung: Laufzeit-
fehler "13" Typen unverträglich.
Hat jemand eine Idee ?
Sub SucheNichtOK()
Dim bereich As Range
Set bereich = Range("d2:d100")
If bereich.Value = "Nicht OK" Then
bereich.Font.ColorIndex = 3
End If
End Sub
Anzeige