habe einen code von http://www.sigmundhalpern.de/ der auch gut funktioniert.
Es werden alle doppelten Werte in einer Spalte farblich markiert, und was für
mich wichtig ist, der erste Wert anders wie die weiteren.
Nun wollte ich den Code so ändern, dass statt der farblichen Markierung
in der Spalte rechts davon:
- beim ersten Wert "Original" steht
- und bei den weiteren Werten "Duplikat" steht.
Allerdings komme ich nicht weiter; evtl. hilft mir bereits ein Ansatz:
Sub Doppelte_Zellen_markieren()
Dim Zelle1
Dim Wo, ber, Ja
eing = InputBox("Die Zelle eingeben, ab der geprüft werden soll," _
& (Chr(13)) & "z.B. A1 oder F6.", "Zellenauswahl")
If eing = "" Then Exit Sub
Range(eing).Select
eing = ""
Application.ScreenUpdating = False
Zelle1 = ActiveCell
Wo = ActiveCell.Address
ActiveCell.Offset(1).Select
ber = ActiveCell.CurrentRegion.Rows.Count
For x = 1 To ber
i = 1
For i = i To ber
If ActiveCell.Interior.ColorIndex = 5 _
Or ActiveCell.Interior.ColorIndex = 8 Then GoTo fin
If ActiveCell.Value = Zelle1 Then
If ActiveCell <> "" Then
ActiveCell.Interior.ColorIndex = 5
Ja = 1
End If
End If
fin:
ActiveCell.Offset(1).Select
Next i
Range(Wo).Select
If Ja <> 0 Then ActiveCell.Interior.ColorIndex = 8
ActiveCell.Offset(1).Select
Wo = ActiveCell.Address
Ja = 0
Zelle1 = ActiveCell
ActiveCell.Offset(1).Select
Next x
End Sub
Besten Dank für eine Hilfe!
mfg
Erich