Verschachtelte For-Schleifen in 2 Blättern

Hallo liebe VBA-Profis.
Ich habe eine Tabelle erstellt, in dem ein Bereich über ein paar Spalten
und Zeilen eingegeben werden (Uhrzeiten).
Diese sollen mit einer Liste in einem 2. Tabellenblatt verglichen werden.
Bei Erfolg, sollen Inhalte aus bestimmten Zellen dieser Zeile in die
zugehörige Zeile des 2. Tabellenblattes eingefügt werden.
Der Code, den ich dazu angefangen habe, lautet:

Sub testforeach2()
For Each i In Worksheets("Medikamente").Range("UhrzeitMedis")
For Each k In Worksheets("Tagesablauf").Range("UhrzeitTagesablauf")
ab = k.Row
If k = i Then
ai = i.Row
Worksheets("Tagesablauf").Cells(ab, 2).Value = Worksheets("Tagesablauf").Cells(ab, 2) &  _
vbNewLine & Worksheets("Medikamente").Cells(ai, 42) & " " & Worksheets("Medikamente").Cells(ai, 46) & " " & Worksheets("Medikamente").Cells(ai, 45)
End If
Next k
Next i
End Sub