[vba] Select column, zoek duplicaten en geef row kleur: Prob

[mesjoggah]

Goedendag,

Ik heb een macro die identieke waardes zoekt en de rijen waar deze in voorkomen een kleur geeft.
Ik wil graag dat alleen in een vooraf gedefinieerde row ( wordt gezocht naar identieke waardes, maar dat lukt me niet.

Ik heb een en ander geprobeerd als: Columns("B:B").Select maar ergens failed dit script:

Macro:
-------------------------------------------------------------------------------------------------------------------
Public Sub HighlightDuplicateRows()

Dim r As Long
Dim C As Range
Dim V As Variant
Dim Rng As Range
Dim Color As Integer

On Error GoTo EndMacro
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

If Selection.Rows.Count > 1 Then
Set Rng = Selection
Else
Set Rng = ActiveSheet.UsedRange.Rows
End If
Color = 44
For r = Rng.Rows.Count To 1 Step -1
V = Rng.Cells(r, 1).Value
If V <> V1 Then
Color = Color - 2
If Color = 34 Then Color = 44
End If
V1 = V
If Application.WorksheetFunction.CountIf(Rng.Columns(1), V) > 1 Then
Rng.Rows(r).EntireRow.Select
With Selection.Interior
.ColorIndex = Color
.Pattern = xlSolid
End With
Else
Rng.Rows(r).EntireRow.Font.Bold = True
End If
Next r
EndMacro:
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub
--------------------------------------------------------------------------------------------------------------------------

Iemand een idee hoe ik dit op kan lossen ?

Alvast heel erg bedankt,
Mesjoggah

[RobIII]

Waar hoort mijn topic?
PRG >> OFF

edit:

Ik zie net dat je daar gisteren ook al op gewezen bent, en twee weken terug ook al een keer...

Verder: Als je code post, gebruik dan code tags a.u.b.

edit:

En ook daar ben je nog niet heel lang geleden op gewezen...

[ Voor 50% gewijzigd door RobIII op 30-12-2011 12:13 ]

[NATStudent]

Wat is de foutmelding?

Ik zie dat V1 nergens wordt gedeclareerd.

[Lustucru]

sja, wat RobIII hierboven al zegt: we blijven niet bezig. Maw dit topic gaat dicht. Je kunt het topic opnieuw openen als je vooraf even de quickstart leest. Daarin staan tips hoe je een topic start.

Wat we in dit geval graag zien:
- gebruik [code] [/code] tags en post alleen relevante code
- vermeld foutmeldingen die je krijgt
- 'ergens failt dit script' zegt helemaal niets. Schrijf even op wát er niet goed gaat.

En btw, als je een scriptje van het internet plukt is het wel net zo aardig om er de bron even bij te vermelden. Wat iig helpt is proberen te begrijpen wat het script doet, regel voor regel.

[ Voor 19% gewijzigd door Lustucru op 30-12-2011 16:48 ]