Anzeige
Archiv - Navigation
808to812
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
808to812
808to812
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zellen farbig darstellen - vertikaler Vergleich

Zellen farbig darstellen - vertikaler Vergleich
05.10.2006 22:51:30
Selma
Hallo zusammen,
ich möchte in markierten Zellenbereich die Zellen (vertikaler Vergleich) mit gleichen Zelleninhalt in grüne Farbe (Hintergrund) dargestellen.
Klein- und Großschreibung soll berücksichtigt werden !
Wie mache ich das per VBA?
Vielen Dank im Voraus...
Liebe Grüße
SELMA

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen farbig darstellen - vertikaler Vergleich
05.10.2006 23:06:45
Swen
Hallo Selma,
poste doch mal eine tabelle und erkläre es noch mal,
mir ist nicht ganz klar was du wissen willst!
gruß
swen
AW: Zellen farbig darstellen - vertikaler Vergleic
06.10.2006 09:52:02
Rudi
Hallo,
wirkt auf den markierten Bereich:

Sub tt()
Dim iCol, iRow, iRow2
Application.ScreenUpdating = False
With Selection
.Interior.ColorIndex = xlNone
For iCol = 1 To .Columns.Count
For iRow = 1 To .Rows.Count - 1
For iRow2 = iRow + 1 To .Rows.Count
If StrComp(.Cells(iRow, iCol), .Cells(iRow2, iCol), 0) = 0 Then
.Cells(iRow, iCol).Interior.ColorIndex = 4
.Cells(iRow2, iCol).Interior.ColorIndex = 4
End If
Next iRow2
Next iRow
Next iCol
End With
Application.ScreenUpdating = True
End Sub

Gruß
Rudi
Anzeige

169 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige