Finde ens celler i samme kolonne

Den simple løsning vil jo nok være Autofilter, hvis jeg forstår dig ret.

Hvis du skal have listen sorteret på antallet af forekomster, skal du også lige tilføje en kolonne, der tæller antallet af forekomster. Her kan du bruge =TÆL.HVIS()

Hmmm... jo måske Autofilter kan bruges til formålet... på en eller anden måde...

Så skal jeg bare ha TÆL.HVIS til at virke. For det er desværre ikke sådan at der måske er 5-10 forskellige værdier i kolonnen, men nærmere 5.000-10.000... :S Så hvordan får jeg fixet den...?

denne vba-kode markerer dubletter som gule.
Du indsætter bare det hele i et modul og kører makroen test_mark_dups
Derefter markerer du første celle i den kolonne du ønsker chekket og trykker ok.


Sub test_mark_dups()
Dim Rng1 As Range
Dim rstart1 As Range

  Set rstart1 = Application.InputBox("Udpeg 1. celle i kolonnen at finde dubletter i ", , , , , , , 8)
  Set Rng1 = Range(rstart1.Offset(1, 0), rstart1.Cells(65536, 1).End(xlUp))

  MarkDuplicates Rng1, vbYellow

End Sub

Private Sub MarkDuplicates(rlist As Range, lColor As Long)
Dim Cell As Range
Dim Uniqs As Object 'New Dictionary
Set Uniqs = CreateObject("scripting.dictionary")
  Application.ScreenUpdating = False
  On Error Resume Next
  For Each Cell In rlist
      Uniqs.Add Cell.Value, CStr(Cell.Value)
      If Err.Number <> 0 Then Cell.Interior.Color = lColor
      Err.Clear
  Next Cell
  Application.ScreenUpdating = True

End Sub

ok, nu har bak (som sædvanlig *S*) rystet en løsning ud af ærmet....

Men hvis du stadig er interesseret i Autofilter og TÆL.HVIS() løsningen, skal formlen se sådan ud: =TÆL.HVIS(A$1:A$30000;B1)
Formlen læses sådan: tæl antallet af celler i området A1 til A30000, hvor indholdet er lig med indholdet af B1. Husk dollartegnet, specielt foran A1, da dataområdet ellers ændres, når cellen kopieres nedad.

bak:
Det er lige præcis sådan noget som det jeg er ude efter... problemet er bare at når jeg kører makroen så siger den "Application-defined or object-defined error"... hvad gør jeg forkert...???

b_hansen:
Hmmm...tror ikke jeg kan bruge TÆL.HVIS løsningen for jeg aner jo ikke hvad jeg skal sammenligne med... altså, jeg aner ikke hvad du i dit eksempel kalder B1 er... Det er en lang liste med forskellige navne, som hurtigt bliver udvidet...

pernille->i hvilken linie melder den fejl ??  (linien bliver gul)

bak
i denne linie...
Set Rng1 = Range(rstart1.Offset(1, 0), rstart1.Cells(65536, 1).End(xlUp))

Mens jeg lige laver den lidt om, så prøv at markere overskriften istedet for.

Så er den lavet om. Husk at det stadig er overskriften der skal markeres

Sub test_mark_dups()
Dim Rng1 As Range
Dim rstart1 As Range

  Set rstart1 = Application.InputBox("Udpeg 1. celle i kolonnen at finde dubletter i ", , , , , , , 8)
  Set Rng1 = Range(rstart1.Offset(1, 0), Cells(65536, rstart1.Column).End(xlUp))

  MarkDuplicates Rng1, vbYellow

End Sub

Private Sub MarkDuplicates(rlist As Range, lColor As Long)
Dim Cell As Range
Dim Uniqs As Object 'New Dictionary
Set Uniqs = CreateObject("scripting.dictionary")
  Application.ScreenUpdating = False
  On Error Resume Next
  For Each Cell In rlist
      Uniqs.Add Cell.Value, CStr(Cell.Value)
      If Err.Number <> 0 Then Cell.Interior.Color = lColor
      Err.Clear
  Next Cell
  Application.ScreenUpdating = True

End Sub

bak... det virker nu... det var bare det der skulle til... he he... ;-)

Markerer den så den 2. (og evt. 3. osv.) fra oven af...??? altså, listen behøves ikke være alfabetisk...?

Taaaaaaaark for hjælpen... :-)

smid et svar så får du point... *S*

bak... hmmm... hvad er forskellen på de to stykker koder...??

Er det muligt at ændre farven (og hvor gør man det) hvis det blir nødvendigt...??

Forskellen er at databasen ikke kode nummer 2 ikke behøver at starte i række 1.

Det er muligt at ændre farven i denne linie
MarkDuplicates Rng1, vbYellow

her kan vbYellow ændres til vbBlue, vbRed, vbGreen, vbBlack, vbCyan, vbMargenta og vbWhite

Listen behøver ikke være sorteret og den markerer 2. forekomst af en værdi/tekst og alle efterfølgende

takker mange gange for hjælpen bak... :-)

smid et svar... ;-)

hov forresten... kan man ikke gøre så den altid starter øverst...??? så man er fri for at markere start cellen først...???

overvejer nemlig at sætte makroen ind under en knap så det er nemt for andre at bruge den... *S*

jo sagtens, men skal man ikke stadig kunne vælge kolonnen eller vil det altid være den samme ?

i dette tilfælde vil det altid være den samme kolonne, der skal ikke sorteres (ikke på den måde i hvert fald) på andre kolonner... *S*

ok, hvilken kolonne ?

kolonne B

Sub test_mark_dups()
Dim Rng1 As Range
Dim rstart1 As Range

  Set rstart1 = ActiveSheet.Range("B1")
  Set Rng1 = Range(rstart1.Offset(1, 0), Cells(65536, rstart1.Column).End(xlUp))
 
  MarkDuplicates Rng1, vbYellow
End Sub

Private Sub MarkDuplicates(rlist As Range, lColor As Long)
Dim Cell As Range
Dim Uniqs As Object 'New Dictionary
Set Uniqs = CreateObject("scripting.dictionary")
  Application.ScreenUpdating = False
  On Error Resume Next
  For Each Cell In rlist
      Uniqs.Add Cell.Value, CStr(Cell.Value)
      If Err.Number <> 0 Then Cell.Interior.Color = lColor
      Err.Clear
  Next Cell
  Application.ScreenUpdating = True

End Sub

weeeeeeeeehuuuuuuuuuu... det virker... tusinde tusinde tak... :-)

Jeg vil foreslå at du erstatter den første sub med denne her.
Den fjerner de gamle farver først, inden den laver sammenligningerne.

Sub test_mark_dups()
  Dim Rng1 As Range
  Dim rstart1 As Range

  Set rstart1 = ActiveSheet.Range("B1")
  Set Rng1 = Range(rstart1.Offset(1, 0), Cells(65536, rstart1.Column).End(xlUp))
  Rng1.Interior.ColorIndex = 0
  MarkDuplicates Rng1, vbYellow
End Sub

hmmmm... tror ikke det er nødvendigt... for der skulle ikke gerne være andre farver i dokumentet på det tidspunkt.

hvis der er fundet dubletter på et tidligere tidspunkt (og disse er blevet markeret vha den makro) så skal de slettes helt fra listen...

Det kan måske bygges ind i den eksisterende makro at dubletten bliver slettet fra listen...??? Den skal så lige kopieres ind i et nyt ark så man jo kan se hvilke der skal fjernes... ;-) eller det er måske et nyt spørgsmål...???