Betinget formattering i anden arkfane

Sæt denne kode i det skjulte ark, når du så aktiverer arket, kører koden og de celler der er forskellige bliver neongrønne

Private Sub Worksheet_Activate()
    Dim Data As Variant, K As Long, R As Long
    Data = Worksheets("Ark2").UsedRange' Ret til navnet på brugerens ark
    For R = 1 To UBound(Data, 1)    ' rækker
        For K = 1 To UBound(Data, 2)    ' kolonner
            If Cells(R, K) <> Data(R, K) Then
            Cells(R, K).Interior.ColorIndex = 4
            Else
            Cells(R, K).Interior.ColorIndex = xlNone
            End If
        Next
    Next
End Sub

Perfekt ... smid svar :-)

Øh ... næsten perfekt

Hvordan får jeg koden til at starte i celle A3 ?

For R = 3 To UBound(Data, 1)    ' rækker

Den havde jeg fundet ud af, men mit problem er at de første to rækker er beskyttet, hvilket får denne del til at fejle :

Cells(R, K).Interior.ColorIndex = xlNone

For R = 3 To UBound(Data, 1)    ' rækker
så starter den da i A3, men bemærk, der SKAL være data i flere end 1 celle i brugerens ark, for at den ikke går i fejl.

Altså mindst data i A3 og B3, i brugerens ark

Og ikke noget med flettede celler

Det er adskillige celler ... celle A1 - U1 er en flettet celle, har det en betydning?

Det er udelukkende når jeg beskytter det pågældende ark koden fejler

Er det arket som er skjult, som du beskytter, for brugerarket er ligegyldig.

Det er i brugerarket jeg vil vise ændringerne, og det er dette der er beskyttet

OK så er her ændringer, vi fjerner beskyttelsen, medens koden kører
Og koden skal så bære i brugerens ark modul.

Private Sub Worksheet_Activate()
    Dim Data As Variant, K As Long, R As Long, Pass As String
    Pass = InputBox("Intast password", "Beskyttet")
    ActiveSheet.Unprotect Password:=Pass
    Data = Worksheets("Ark2").UsedRange    ' Ret til navnet på Skjulte ark
    For R = 3 To UBound(Data, 1)    ' rækker
        For K = 1 To UBound(Data, 2)    ' kolonner
            If Cells(R, K) <> Data(R, K) Then
                Cells(R, K).Interior.ColorIndex = 4
            Else
                Cells(R, K).Interior.ColorIndex = xlNone
            End If
        Next
    Next
    ActiveSheet.Protect Password:=Pass
End Sub

måske skal
Data = Worksheets("Ark2").UsedRange
ændres, for det skjulte ark bliver jo ikke større, så koden vil kun kikke på det brugte område på det skjulte ark.

Måske skal det være fast område ?

Data = Worksheets("Ark2").Range("A1:AA10000")

Perfekt :-)

Er lille tillægsspørgsmål :

Hvis påbegynder en helt ny indtastning i eksembelvis linie 15, så reagerer Interior.Colorindex med det samme ( unden Worksheet_Activate ), bortset fra kolonne A ???

Kolonne A opdateres først når arket forlades og aktiveres igen