Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
956to960
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
956to960
956to960
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Doppelte Werte markieren?

Doppelte Werte markieren?
11.03.2008 07:13:00
Antonio
Guten Morgen zusammen,
Bitte um Hilfe! Kann man die doppelte Werte in Spalte A3:A ,die 2x vorkommen, per VBA-Code rot markieren lassen? und wenn die werte mehr als 2x vorkommen, gelb markieren?
Vielen Dank für eine Rückmeldung.
Gruß
Antonio

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Doppelte Werte markieren?
11.03.2008 07:20:22
Hans
Hallo Antonio,
wie folgt:

Sub GetDoubles()
Dim rngAll As Range, rngAct As Range
Set rngAll = Range("A3:A50")
For Each rngAct In rngAll.Cells
If WorksheetFunction.CountIf(rngAll, rngAct.Value) > 2 Then
rngAct.Interior.ColorIndex = 6
ElseIf WorksheetFunction.CountIf(rngAll, rngAct.Value) > 1 Then
rngAct.Interior.ColorIndex = 3
Else
rngAct.Interior.ColorIndex = xlColorIndexNone
End If
Next rngAct
End Sub


Gruss hans

AW: Doppelte Werte markieren?
11.03.2008 07:23:00
Antonio
Guten Morgen Herr Hans W. Herber,
vielen Dank für die schnelle Hilfe.
Gruß
Antonio :-)
Anzeige

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige