Doppelte Werte erkennen

Question

Hallo,
ich möchte eine Kontrollfunktion haben, die mir sagt welche LS Nr. doppelt ist.
In der Spalte K stehen div Nr. zB.

K
50
50
50
50
50
50
35
35
35
35
49
49
49
49
50
50
50
68
68
68
68

so jetzt soll er erkennen das die 50 2x auftaucht. Geht das mit einer Bedingten Formatierung. Habe leider nur Excel 2003.

Gruß Andi

Answer 1

Hallo Andi,

anbei mein Vorschlag mit Hilfsspalte

Gruß
Rainer

Answer 2

hi all ^^

ohne hilfsspalte gibt es einen virtuellen schokomuffin ^^

gruss nighty

Answer 3

Hallo noch mal,

wem die Hilfsspalte stört, kann auch folgende Formel in der Bed. Form. verwenden

=SUMMENPRODUKT(($G$2:$G2=$G2)*($I$2:$I2=$I2)*(K$2:K2=K2))>1

Gruß
Rainer

Answer 4

Hallo Zusammen,
danke für die Vorschläge, so sieht es erst mal gut aus. :-)
Das ganze muss ich jetzt nur noch als VBA verpacken, und in mein Makro einbauen. Oder habt Ihr da auch noch ein Vorschlag? :-)

Gruß Andi

Answer 5

Hallo Andi,

Das ganze muss ich jetzt nur noch als VBA verpacken, und in mein Makro einbauen. Oder habt Ihr da auch noch ein Vorschlag? :-)

...ich frage mich, warum du die Frage nicht gleich so stellst, wie du sie gelöst haben möchtest???

Da hätte ich mir meine Arbeit ersparen können, da für ein Makro die Bedingte Formatierung keine gute Lösung ist.

Mit mir kannst du diesbezüglich nicht mehr rechnen.

Gruß
Rainer

Answer 6

Hallo Rainer,
sorry, ich wusste nicht mal ob es überhaupt geht. Deswegen habe ich die Anfrage ja hier gestellt. Trotzdem danke für deine Bemühung und deinen Einsatz. Ich werde versuchen, dass nächste mal die Frage besser zu formulieren.

Gruß Andi

Answer 7

hi all ^^

gehe auf Makroaufnahme und fuege dann rainer seine formel ein
Makroaufnahme beenden und schwupp ist das makro fertig ^^

gruss nighty

Answer 8

hi rainer ^^

der Fragesteller ist eher sekudär

es werden viele member duch Recherchen auf deine formel stossen
und begeistert sein ueber deinen Einsatz

gruss nighty

Answer 9

Hallo nighty,

gehe auf Makroaufnahme und fuege dann rainer seine formel ein
Makroaufnahme beenden und schwupp ist das makro fertig

.... schön, wenn das so einfach wäre.
Das geht leider nicht, weil meine Formel für die Bedingte Formatierung und nicht für einen Zellbereich zugeschnitten ist.

Gruß
Rainer

Answer 10

hi rainer ^^

ops vegessen :-)

hier habt ihr ein beispiel

gruss nighty

Sub Markierung()
Dim Lzeile As Long
For Lzeile = 2 To ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
If WorksheetFunction.CountIf(Range("A2:A" & Lzeile), Cells(Lzeile, 1)) = 1 Then
Cells(Lzeile, 1).Interior.ColorIndex = 3
End If
Next Lzeile
End Sub