Anschlussfrage

Sub test()
Dim wksQ As Worksheet, wksZ As Worksheet
Dim letzte As Long, letzteA As Long, i As Long, ii As Long
Set wksZ = Worksheets("Ziel")
Set wksQ = Worksheets("Quelle")
wksQ.Activate
letzte = wksZ.Cells(Rows.Count, 1).End(xlUp).Row
letzteA = wksQ.Cells(Rows.Count, 1).End(xlUp).Row
lezteS = wksQ.UsedRange.Columns.Count
For i = 2 To letzte
For ii = 3 To letzteA
If Application.CountIf(wksQ.Range(Cells(ii, 78), Cells(ii, lezteS)), wksZ.Cells(i,  _
1)) > 0 Then
wksZ.Cells(i, wksZ.Cells(i, Columns.Count).End(xlToLeft).Column + 1) = wksQ. _
Cells(ii, 1)
End If
Next
Next
Set wksZ = Nothing
Set wksQ = Nothing
End Sub