PDA

Vollständige Version anzeigen : Doppelte Werte farbig markieren


tinocio
14.07.2012, 14:18
Hi,
für experten sicher kein problem, für mich jedoch ein großes.
ich suche eine vba lösung um doppelte, mehrfache Einträge in einer spalte eines tabellenblattes farbig zu markieren.

danke für die hilfe
tinocio

Hajo_Zi
14.07.2012, 14:21
warum nicht bedingte Formatierung?
Annahme: Deine Werte stehen in A1 bis Axx
A1 anwählen, Format, Bedingte Formatierung (bei bedingter Formatierung soll es eine Grenze von 2050 Zeilen geben, mal selber Testen)
"Formel ist" auswählen NICHT "Zellwert ist"
Bei der Formel eingeben =ZÄHLENWENN(A$1:A1;A1)>1
Bei Format dann z.B. Musterfarbe rot auswählen mit OK beenden.
Die Formatierung auf Die Zellen A2 bis Axx kopieren. Fertig
Dann werden Doppelt farblich gekennzeichnet
oder
kann man auch die Doppeleingabe selber verhindern:
z.B. unter Daten, Gültigkeit, benutzerdefiniert
Formel
=ZÄHLENWENN(A:A;A1)=1
nach unten kopieren.
Von Ulrich Schneider
oder auch Unterscheidung Groß- und Kleinschreibung
=SUMME(N(IDENTISCH(E2;$E$2:$E$22)))=1
nicht für Version 2007

<img src="http://Hajo-Excel.de/images/grusz1.gif" align="middle" height="40" alt="Grußformel"><a href="http://Hajo-Excel.de/index.htm" onclick="window.open(this.href);return false"><img border="0" src="http://Hajo-Excel.de/images/logo_hajo3.gif" align="middle" height="40" alt="Homepage"></a>

tinocio
14.07.2012, 15:34
thx, die lösung funzt einwandfrei

bin trotzdem an einer vba lösung interessiert

danke
tinocio

Hasso
14.07.2012, 16:10
Hallo tinocio,

angenommen, deine Werte stehen in Spalte A, Zeile 1 bis 100, dann

Sub doppelte_färben()

Dim zelle As Range

For Each zelle In ActiveSheet.Range("A1:A100")
If WorksheetFunction.CountIf(ActiveSheet.Range("A1:A100"), zelle.Value) > 1 Then zelle.Interior.ColorIndex = 4
Next zelle
End Sub

Farbe und Bereich kannst du nach deinen Wünschen anpassen.

tinocio
14.07.2012, 16:27
thx,
das ist die gewünschte lösung
klasse

danke
tinocio