Werte in verschiedenen Tabellenblättern abgleichen und ggf. diese Werte einfärben

=ODER(ZÄHLENWENN(Tabelle2!$B:$B;$A2);ZÄHLENWENN(Tabelle3!$B:$B;$A2);ZÄHLENWENN(Tabelle3!$B:$B;$A2))

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim f As Range, cell As Range
    With Sheets(1)
        If Not Application.Intersect(.Range("A:A"), Target) Is Nothing Then  
            For Each cell In Sheets(1).Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row)  
                If cell.Value <> "" Then  
                    For i = 2 To 4
                        Set f = Sheets(i).Range("B:B").Find(cell.Value, LookIn:=xlValues, Lookat:=xlWhole)  
                        If Not f Is Nothing Then
                            cell.Interior.Color = vbGreen
                            Exit For
                        Else
                            cell.Interior.ColorIndex = 0
                            Exit For
                        End If
                    Next
                End If
            Next
        End If
    End With
End Sub