hjælp til at vba script

Har du mulighed for at sende filen eller uddrag - så skal jeg forsøge. Adr. under min profil.

Ikke det mest elegante - men:

Dim sidsteRække As Integer, ræk As Integer
Public Sub sammenLign()
    sidsteRække = ActiveCell.SpecialCells(xlLastCell).Row
   
Rem Kolonne A
    For ræk = 1 To sidsteRække
        If Cells(ræk, 1) <> "" Then
            If søg(Cells(ræk, 1), "B1:B" & CStr(sidsteRække)) = False Then
                Cells(ræk, 1).Interior.ColorIndex = 3
            End If
        End If
    Next ræk
   
Rem Kolonne B
    For ræk = 1 To sidsteRække
        If Cells(ræk, 2) <> "" Then
            If søg(Cells(ræk, 2), "A1:A" & CStr(sidsteRække)) = False Then
                Cells(ræk, 2).Interior.ColorIndex = 3
            End If
        End If
    Next ræk
End Sub
Private Function søg(nr, område)

    With ActiveSheet.Range(område)
        Set c = .Find(nr, LookIn:=xlValues, LookAt:=xlWhole)
        If Not c Is Nothing Then
            søg = True
        Else
            søg = False
        End If
    End With
End Function

Marker A1:A5000
indsæt følgende formel i Betinget formatering under "Formlen er"
=TÆL.HVIS($B$1:$B$5600;A1)=0

Marker B1:B5600
indsæt følgende formel i Betinget formatering under "Formlen er"
=TÆL.HVIS($A$1:$A$5000;B1)=0

Vælg format - rød baggrund

jeg takker begge forslag virker.

ved ikke om i vil dele

Ok for mit vedkommende..

velbekom
det er ok jeg står over - point til supertekst

Tak "ex" - et svar