For Each Problem

Forumthread: For Each Problem

For Each Problem

20.09.2003 11:00:54

HerbertS

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

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: For Each Problem

20.09.2003 11:06:09

Nepumuk

AW: For Each Problem

20.09.2003 11:06:09

Nepumuk

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

Forumthread: For Each Problem

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread