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

hi all ^^

in Wechselwirkung

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
If Cells(Lzeile, 1).Interior.ColorIndex <> 3 Then
Cells(Lzeile, 1).Interior.ColorIndex = 3
Else
Cells(Lzeile, 1).Interior.ColorIndex = xlNone
End If
End If
Next Lzeile
End Sub

Answer 2

Hallo nighty,

bist du dir bewusst, dass dein Code total an der gewollten Lösung vorbei geht?

Obwohl ich mich in diesem Thread bereits verabschiedet habe, trotzdem mal ein Vorschlag von mir.

Option Explicit

Sub doppelte()
Dim lngI As Long, lngZ As Long
Application.ScreenUpdating = False
lngZ = Cells(Rows.Count, 11).End(xlUp).Row
For lngI = 2 To lngZ
Range("IV" & lngI) = Range("G" & lngI) & Range("I" & lngI) & Range("K" & lngI)
Next
For lngI = 2 To lngZ
If WorksheetFunction.CountIf(Range("IV2:IV" & lngI), Range("IV" & lngI)) = 2 Then _
Range("K" & lngI).Interior.ColorIndex = 3
Next
Range("IV2" & ":IV" & lngZ).ClearContents
Application.ScreenUpdating = True
End Sub

Statt der Hilfsspalte könnte man auch ein Array nehmen, ist aber Geschmackssache.

Gruß
Rainer

Answer 3

Hallo nighty,
also beides hat funktioniert. Makroaufzeichnung und es ging auch in der Aufzeichnung Rainer seiner Formel zu integrieren.
Beides konnte ich dann in mein Makro einbauen. Dein Beispiel nighty werde ich auch noch ausprobieren und berichten.

Danke euch
Gruß Andi

Answer 4

Hallo Rainer,
dein Code werde ich natürlich auch noch testen. :-)

gruß Andi

Answer 5

Hallo zusammen,
habe beide Sachen getestet. Der VBA von Rainer funktioniert gut und mit der Bedingten Formatierung geht auch. Gibt es noch die Möglichkeit, eine Meldung einzubauen wo einem gesagt wird das "Doppelte vorhanden" sind?

Viele Grüße Andi

Answer 6

Hallo Andi,

Gibt es noch die Möglichkeit, eine Meldung einzubauen wo einem gesagt wird das "Doppelte vorhanden" sind?

...ich bin sicher, dass auch das geht, aber im Ratemodus kann man da keine konkreten Vorschläge machen.

Mein Tipp:

Stelle deine Mappe ins Netz, verlinke sie nach hier und erkläre anhand dieser unmissverständich, wo dich der Schuh noch drückt.

Gruß
Rainer