kontrol af om der er forskel på 2 tal i 2 kolonner.

Public Sub EnsCeller()
    Tjek = Range("G4:N" & Range("G65536").End(xlUp).Row) ' hvis du retter 4 tallet i G4 skal du også rette i linje med *
    'HVIS der står noget i BÅDE kolonne N og kolonne J,:
    'så SKAL kolonne G og J være ens. (det er talværdier fra 1-10)
    'G H I J K L M N
    '1 2 3 4 5 6 7 8
    For I = 1 To UBound(Tjek)
        If Not IsEmpty(Tjek(I, 4)) And Not IsEmpty(Tjek(I, 8)) Then
            If Not Tjek(I, 1) = Tjek(I, 4) Then
                MsgBox "Der er ikke ens i Række(" & I + 3 & ")" '*
                Rows(I + 3).Select  '*
                Exit Sub
            End If
        End If
    Next
End Sub

ja det som jeg efterspurgte.
Som i den den anden makro kunne jeg godt tænke mig at den returnerer en værdi/msg boks der siger følgende:

Der er ikke en nr i kontonr. + (det der står i kolonne A + B i den pågældende linie)

Public Sub EnsCeller()
    Tjek = Range("G4:N" & Range("G65536").End(xlUp).Row) ' hvis du retter 4 tallet i G4 skal du også rette i linje med *
    'HVIS der står noget i BÅDE kolonne N og kolonne J,:
    'så SKAL kolonne G og J være ens. (det er talværdier fra 1-10)
    'G H I J K L M N
    '1 2 3 4 5 6 7 8
    For I = 1 To UBound(Tjek)
        If Not IsEmpty(Tjek(I, 4)) And Not IsEmpty(Tjek(I, 8)) Then
            If Not Tjek(I, 1) = Tjek(I, 4) Then
                MsgBox "Der er ikke en nr i kontonr.(" & Cells(I + 3, 1) & " " & Cells(I + 3, 2) & ")" '*
                Rows(I + 3).Select  '*
                Exit Sub
            End If
        End If
    Next
End Sub

så var den der.
Mange tak hjælpen