Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
312to316
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
312to316
312to316
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

For Each Problem

For Each Problem
20.09.2003 09: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
Anzeige
AW: For Each Problem
20.09.2003 09: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
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige