Hallo nighty,
habe meinen Code entsprechend verändert:
Do Until IsEmpty(Cells(iRow, 2))
Set rng = Workbooks("Test.xlsm").Sheets("Daten").Columns(3).Find( _
what:=Cells(iRow, 4), lookat:=xlWhole, LookIn:=xlValues)
Set rng1 = Workbooks("Test.xlsm").Sheets("Daten").Columns(4).Find( _
what:=Cells(iRow, 5), lookat:=xlWhole, LookIn:=xlValues)
If Not rng Is Nothing And Not rng1 Is Nothing Then
Range(rng.Offset(0, 18), rng.Offset(0, 18)).Value = _
Range(Cells(iRow, 2), Cells(iRow, 2)).Value
End If
iRow = iRow + 1
Loop
Es kommt zwar zu keinem Fehler, aber bei 2 Personen mit gleichem Nachnamen (rng) wird mit "Then..." nur der erste Namen berücksichtigt, allerdings dann fälschlicherweise mit einem Eintrag, der zum zweiten Vornamen passt. Da steckt noch ein logischer Fehler drin...??