Hallo Sebastian,
du hast ein paar Unstimmigkeiten eingebaut, z.B. suchst du in Spalte A und nicht B und willst auf der Namensliste 1 neue Sätze markieren, obwohl sie nach Voraussetzung nicht darin vorkommen. Vielleicht versuchst du, die geänderte Logik nachzuvollziehen.
Dim Suchname As String, Fundname As Range, letzte_Zeile_Tab1 As Long, _
letzte_Zeile_Tab2 As Long, Wiederholungen As Long, Addresse As String, _
gefundene_Zeile As Long, Wiederholungen1 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
For Wiederholungen1 = 2 To letzte_Zeile_Tab2
For Wiederholungen = 2 To letzte_Zeile_Tab1
If Sheets("Namensliste 1").Cells(Wiederholungen, 2) = _
Sheets("Namensliste 2").Cells(Wiederholungen1, 2) Then Exit For
Next
If Wiederholungen > letzte_Zeile_Tab1 Then
Sheets("Namensliste 2").Cells(Wiederholungen1, 2).Interior.ColorIndex = 4
Sheets("Namensliste 2").Cells(Wiederholungen1, 2).Copy
Sheets("Auswertung").Cells(Sheets("Auswertung").Range("B65536").End(xlUp). _
Row + 1, 2).PasteSpecial Paste:=xlValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End If
Next
Application.ScreenUpdating = True
Ich sehe gerade, dass Dekor bereits geantwortet hat (ich war in der Zwischenzeit zu Tisch!). Seinen Beitrag habe ich nicht näher angesehen.
Gruß
Holger
|