Farve celler med samme værdi

' Farv dubletter røde
    col = ActiveCell.Column
    Rowcount = Cells(65536, col).End(xlUp).Row
    Range(Cells(1, col), Cells(65536, col).End(xlUp)).Select
    For I = 1 To Rowcount
        If Cells(I, col).Interior.ColorIndex <> 3 Or Cells(I, col) <> "" Then
            For I1 = I + 1 To Rowcount
        If Cells(I, col) = Cells(I1, col) Then
            Cells(I1, col).Interior.ColorIndex = 3
        End If
        Next
    End If
    Next

Det ser spændende ud. Men jeg kunne nok godt tænke mig et minimum af forklaring :)

Okay, kopier ovenstående, tryk ALT + F11 (så åbner den såkaldte VBA-editor sig), vælg Insert > Module. Ude til venstre finder du din projektmappe og her skulle der nu gerne stå Module1 eller Modul1.

I vinduet til højre skriver du først "Sub Farv_dubletter" og trykker Enter. Programmet sætter nu selv en "End sub" ind. Sæt indholdet fra før ind mellem disse to mærker (tryk CTRL + v). Gå tilbage til Excel og gem din projektmappe. Stil dig i kolonnen med dine tal, tryk ALT + F8 og find navnet Farv_dubletter og markér dette. Tryk på Afspil.

Hvis det ikke virker, så skriv tilbage og fortæl os, hvilke fejl du evt. får.

Ok, nu er jeg i gang.
Men så skriver du "I vinduet til højre..."?!!

Hmm, nu tror jeg at jeg fik gjort som jeg skulle, men der kommer en fejlmeddelelse i et pop-up vindue:
"Compile Error - "Invalid outside procedure"

Nu skriver den "Can't execute in breakmode"

Nu farver den. Men det er de forkerte celler. Det er de celler der ikke er markeret der bliver farvet!

Jeg skulle gerne have det til at virke i et markeret område.

Kan du sende mig et ekspempel på X_lars@yahoo.com?

Jeg ville nu nok bruge betinget formatering til denne opgave. Slå op i hjælp for at læse mere om betinget formatering, dog er det ligetil at gå til.

Er du kommet videre?