VBA: waarden uit 2 kolommen testen op gelijke relatie

[RoCompy87]

Beste forumleden,

Ik heb in Excel een tabel met twee kolommen, waarbij ik met VBA wil testen of de relatie tussen de waarden overal gelijk is. Voorbeeld: In de eerste kolom staat 'B12x' en in de tweede kolom staat 'Groningen'. Nu wil ik testen of 'B12x' dan ook iedere keer wordt gevolgd door 'Groningen'. Zie ook het voorbeeldbestandje (fictieve waarden).

PS: Het klinkt een beetje onzinnig, maar die twee kolommen maken deel uit van een grotere tabel (met unieke sleutels) die door de eindgebruiker handmatig wordt bewerkt.

Mvg

 

[Joske2000]

Hi,

zonder VBA, maar met voorwaardelijke opmaak.

Gr,

Joske

 

[RoCompy87]

Bedankt voor je reactie! Ik heb geprobeerd om het 'om te zetten' naar iets in VBA en het werkt!

        For Each v In [s21orgee]
            If v.Offset(0, 3).Value <> WorksheetFunction.Index(Range(Cells(1, 35), Cells(v.Row, 36)), WorksheetFunction.Match(v.Offset(0, 2).Value, _
            Range(Cells(1, 35), Cells(v.Row, 35)), 0), 2) Then
                .[I53].Value = "nee"
                .[E53].Value = 2
                Exit For
            End If
        Next v