Sub Daten_vergleichen()
Dim Suchname As String
Dim Fundname As Range
Dim letzte_Zeile_Tab1 As Long
Dim letzte_Zeile_Tab2 As Long
Dim Wiederholungen As Long
Dim Addresse As String
Dim gefundene_Zeile As Long
Dim Wiederholungen1 As Long
Dim i As Long
Application.ScreenUpdating = False
letzte_Zeile_Tab1 = Sheets("Namensliste 1").Range("B65536").End(xlUp).Row
letzte_Zeile_Tab2 = Sheets("Namensliste 2").Range("B65536").End(xlUp).Row
i = 2
For Wiederholungen = 2 To letzte_Zeile_Tab1
For Wiederholungen1 = 2 To letzte_Zeile_Tab2
If Sheets("Namensliste 1").Cells(Wiederholungen, 2) = Sheets("Namensliste 2").Cells(Wiederholungen1, 2) Then
Sheets("Namensliste 1").Cells(Wiederholungen, 2).Interior.ColorIndex = 4
Sheets("Namensliste 2").Cells(Wiederholungen1, 2).Interior.ColorIndex = 4
Sheets("Auswertung").Cells(i, 2).Value = Sheets("Namensliste 2").Cells(Wiederholungen1, 2).Value
i = i + 1
End If
Next
Next
End Sub