Public Sub aaa()
Dim loLetzte As Long, raFund As Range
Application.ScreenUpdating = False
With Worksheets("Tabelle1")
loLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row
For i = 1 To loLetzte
If .Cells(i, 2) = "ja" Then
Set raFund = Worksheets("Tabelle2").Columns("A:A").Find(what:=.Cells(i, 1), LookIn:=xlValues, lookat:=xlWhole)
If Not raFund Is Nothing Then
.Range(.Cells(i, 2), .Cells(i, 10)).Copy raFund.Offset(, 1)
End If
End If
Next i
End With
Set raFund = Nothing
Application.ScreenUpdating = True
End Sub