Prüfen mit variabler zeile und variabler Spalte

Sub k()
Dim i, j, k, l, s, z As Integer
On Error Resume Next
For i = 3 To 240
For j = 3 To 7
s = Tabelle2.Range("a" & j).Row
For k = 2 To 9
If Tabelle3.Range("b" & i).Value = Tabelle2.Range("a" & j).Value Then
z = Tabelle2.Cells(k, 2).Column
If Tabelle3.Cells(i, 3).Value = Tabelle2.Cells(k, 2).Value Then
Tabelle3.Range("G" & i).Value = Tabelle2.Cells(z, s)
End If
End If
Next k
Next j
Next i
End Sub