Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Zeilen bei Übereinstimmung mit Farbe versehen ?

Zeilen bei Übereinstimmung mit Farbe versehen ?
26.02.2009 10:43:38
Günther
Guten Tag zusammen,
ich bitte um Hilfe bei diesem Problem:
Von Zelle D3:D1000 und A3:A1000 stehen Nummern.
Die Nummern aus Spalte A sollen nun mit denen aus Spalte D verglichen werden.
Bei Übereinstimmung sollten die Zeilen mit gelber Hintergrundfarbe versehen werden.
Beispiel:
A.........D
1326...1234
1327...1326...(Übereinstimmung = Zeile gelb)
1458...1327...(Übereinstimmung = Zeile gelb)
...........1327...(Übereinstimmung = Zeile gelb)
...........1698
...........1326...(Übereinstimmung = Zeile gelb)
In Spalte D können die Nummern mehrfach erscheinen.
Vielen Dank
Gruß Günther
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen bei Übereinstimmung mit Farbe versehen ?
26.02.2009 10:52:35
harry
Hallo Günther,

Sub main()
'Durchlauf alle Werte in Spalte A
For zeile = 3 To 1000
wert = Cells(zeile, 1)
'Durchlauf alle Werte in Spalte D
For zeile1 = 3 To 1000
'Wenn Übereinstimmung, dann Einfärben
If Cells(zeile1, 4) = wert Then
Cells(zeile1, 4).Interior.ColorIndex = 5
End If
Next
Next
End Sub


das ist eine Möglichkeit
Gruß
harry

Anzeige
AW: Zeilen bei Übereinstimmung mit Farbe versehen ?
26.02.2009 11:40:11
Günther
Hallo Harry,
danke für deinen Vorschlag, funktioniert soweit wunderbar.
Was muss ich ändern damit nicht nur die Zellen markiert werden,
sondern die komplette Zeile?
Gruß Günther
AW: Zeilen bei Übereinstimmung mit Farbe versehen ?
26.02.2009 11:43:59
harry
Hallo Günther,
cells(zeile1,4).entirerow.interior.colorindex=5
Gruß
harry
AW: Zeilen bei Übereinstimmung mit Farbe versehen ?
26.02.2009 11:59:26
Günther
Hallo Harry,
danke für die schnelle Antwort.
Jetzt ist es perfekt.
Gruß
Günther
Anzeige

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige