For Each Problem

Bild

Betrifft: For Each Problem
von: HerbertS
Geschrieben am: 20.09.2003 09:00:54

Hallo Freunde,
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
Bild


Betrifft: AW: For Each Problem
von: Nepumuk
Geschrieben am: 20.09.2003 09:06:09

Hallo Herbert,
so geht's:

Option Explicit
Sub MarkierenZahlen()
    Dim Zelle As Range
    For Each Zelle In Range("C4:E9")
        If Range("A4").Value = Zelle.Value Then Zelle.Interior.ColorIndex = 6
    Next Zelle
End Sub


Code eingefügt mit: Excel Code Jeanie

Gruß
Nepumuk


 Bild

Beiträge aus den Excel-Beispielen zum Thema " For Each Problem"