Suche Wert



Excel-Version: XL9
nach unten

Betrifft: Suche Wert
von: Detlef
Geschrieben am: 03.05.2002 - 09:04:41

Hallo zusammen,
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

nach oben   nach unten

Re: Suche Wert
von: MRR
Geschrieben am: 03.05.2002 - 09:06:35

Hi Detlef,

Sub SucheNichtOK()
Dim bereich As Range
Dim Zelle As Range
Set bereich = Range("d2:d100")
For Each Zelle In bereich
  If zelle.Value = "Nicht OK" Then
    zelle.Font.ColorIndex = 3
  End If
Next
End Sub 

HTH, Matthias
 nach oben

Beiträge aus den Excel-Beispielen zum Thema "for ... next für Spalten"