Makro anpassen

Sub TestIt()
Dim wksSrc As Worksheet, wksDst As Worksheet
Dim i As Long, j As Long
Dim blnFnd As Boolean, vntSrc(2)
Set wksSrc = Worksheets("Tabelle1")
Set wksDst = Worksheets("Tabelle2")
For i = 0 To 2
vntSrc(i) = wksSrc.Cells(i + 1, 1).Value
Next
With wksDst
For j = 1 To .Cells(1, Columns.Count).End(xlToLeft).Column
blnFnd = True
For i = 0 To 2
If .Cells(i + 1, j).Value  vntSrc(i) Then
blnFnd = False
Exit For
End If
Next
If blnFnd Then
.Cells(4, j).Resize(6) = wksSrc.Cells(5, 1).Resize(6).Value
End If
Next
End With
Set wksSrc = Nothing
Set wksDst = Nothing
End Sub