gelijk waarde zoeken in een kolom op 2 tab bladen

[caffie]

ik zoek twee gelijk waarde in 2 kolomen op 2 verschillende tabbladen

tot zo ver ben ik gekomen
maar op een of andere manier loopt het nog niet
Wie kan me verder helpen.

Sub Dubbelcode()
         
    Dim Klant As Worksheet
    Dim Database As Worksheet
    Dim TelKlant As Integer
    Dim TelDatabase As Integer
    Set Database = Sheets("DataBase")
    Set Klant = Sheets("Klant")
   
    For TelDatabase = 2 To Database.Cells(65000, "E").End(xlUp).Row
    For TelKlanten = 2 To Klant.Cells(65000, "F").End(xlUp).Row
                    
        If Klant.Cells(TelKlant, "F") = Database.Cells(TelDatabase, "F") Then
        Klant.Cells(TelKlant, "F").Interior.ColorIndex = 3
        Else
        End If
    Next
    Next
    
End Sub

 

[WHER]

Ik zie drie probleempjes:
1: zet je code tussen code-tags
2: je declareert een variabele "TelKlant" en vervolgens komt in je code:

For TelKlant[COLOR="red"]en[/COLOR] = 2 To Klant.Cells(65000, "F").End(xlUp).Row

3:

If Klant.Cells(TelKlant, "F") = Database.Cells(TelDatabase, "[COLOR="red"]F[/COLOR]") Then

Dit moet mijns inziens een "E" zijn.

 

[Warme bakkertje]

Sub Dubbelcode()
    For Each cl In Sheets("Klanten").Range("F2:F" & Cells(Rows.Count, 6).End(xlUp).Row)
        With Sheets("Database").Columns(5)
            If Not .Find(cl.Value, , xlValues, xlWhole) Is Nothing Then cl.Interior.ColorIndex = 3
        End With
    Next
End Sub

 

[caffie]

Ik zie drie probleempjes:
1: zet je code tussen code-tags
2: je declareert een variabele "TelKlant" en vervolgens komt in je code:

For TelKlant[COLOR="red"]en[/COLOR] = 2 To Klant.Cells(65000, "F").End(xlUp).Row

3:

If Klant.Cells(TelKlant, "F") = Database.Cells(TelDatabase, "[COLOR="red"]F[/COLOR]") Then

Dit moet mijns inziens een "E" zijn.

Klopt als een bus
Bedankt

 

[caffie]

Sub Dubbelcode()
    For Each cl In Sheets("Klanten").Range("F2:F" & Cells(Rows.Count, 6).End(xlUp).Row)
        With Sheets("Database").Columns(5)
            If Not .Find(cl.Value, , xlValues, xlWhole) Is Nothing Then cl.Interior.ColorIndex = 3
        End With
    Next
End Sub

Dit gaat ik ook even proberen
ook bedankt vor de TIP