Option Explicit
Public Sub Find_Methode()
'* H. Ziplies *
'* 31.05.16 *
'* erstellt von HajoZiplies@WEB.de *
'* http://Hajo-Excel.de
Dim WkSh_1 As Worksheet
Dim WkSh_2 As Worksheet
Dim lZeile As Long
Dim rZelle As Range
Dim sFundst As String
Dim LoI As Long
Dim Loletzte As Long
' erste Tabelle ist aktiv
Loletzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows. _
Count)
For LoI = 1 To Loletzte
With Worksheets("Tabelle2").Columns(1)
Application.ScreenUpdating = False
Application.EnableEvents = False
If Cells(LoI, 1) "" Then
Set rZelle = .Find(Cells(LoI, 1), Range("A" & Rows.Count), xlFormulas, _
xlWhole, , xlNext)
If Not rZelle Is Nothing Then
sFundst = rZelle.Address
Do
Cells(LoI, 1).Interior.Color = 255
rZelle.Interior.Color = 255
Set rZelle = .FindNext(rZelle)
Loop While Not rZelle Is Nothing And rZelle.Address sFundst
End If
End If
End With
Application.EnableEvents = True
Application.CutCopyMode = False 'Zwischenspeicher löschen
Application.ScreenUpdating = True
Set rZelle = Nothing
Next LoI
End Sub