Das Archiv des Excel-Forums

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

Excel-Beispiele zum Thema " For Each Problem"

Verschnittproblem mit Solver lösen download