For Each Problem
20.09.2003 09:00:54
HerbertS
ich brauche Eure Hilfe!
Im Zahlenbereich von C4:E9 stehen Zahlen zwischen 1 und 18.
In A4 steht die Vergleichszahl.
Wenn die Vergleichszahl im Zahlenbereich gefunden wird,
soll die Zahl dort gelb markiert werden.
Wo ist hier der Fehler?
Sub MarkierenZahlen()
Bereich = Range("C4:E9")
For Each Zelle In Bereich
a = Range("A4").Value
If a = Zelle.Value Then
Zelle.Interior.ColorIndex = 6
End If
Next Zelle
End Sub
Vielen Dank schon vorab
HerbertS