ich habe eigentlich zwei Fragen (formuliert als eine) die ich irgendwie nicht hinkriege. Habe es, der Verständnis halber als Datei formuliert.
Wer kann mir helfen?!
https://www.herber.de/bbs/user/15063.xls
Gruss Nora
Sub Namen_vergleichen()
For i = 4 To Cells(Rows.Count, 2).End(xlUp).Row
Name = Cells(i, 2)
Set n = Columns(10).Find(What:=Name, LookIn:=xlValues, LookAt:=xlWhole)
If n Is Nothing Then
lz = Cells(Rows.Count, 10).End(xlUp).Row
Cells(lz + 1, 10) = Name
End If
Next i
For i = 4 To Cells(Rows.Count, 4).End(xlUp).Row
Name = Cells(i, 4)
Set n = Columns(10).Find(What:=Name, LookIn:=xlValues, LookAt:=xlWhole)
If n Is Nothing Then
lz = Cells(Rows.Count, 10).End(xlUp).Row
Cells(lz + 1, 10) = Name
End If
Next i
End Sub