Sub TestIt()
Dim Ws2 As Excel.Worksheet
Dim Ws1 As Excel.Worksheet
Dim rngUsed As Range, c As Range
Dim rngHit As Range, z As Range
With ThisWorkbook
Set Ws2 = Sheets("Tabelle2")
Set Ws1 = Sheets("Tabelle1")
End With
Set rngUsed = Ws2.UsedRange.Columns(19)
Set rngUsed = rngUsed.Offset(1, 0).Resize(rngUsed.Rows.Count - 1, rngUsed.Columns.Count)
For Each c In rngUsed.Cells
Set rngHit = Ws1.Columns(24).Find(c.Value, LookIn:=xlValues)
If Not rngHit Is Nothing Then
Range(c.Offset(, -18), c.Offset(, 34)).Copy rngHit.Offset(, -18)
Else
Set z = Ws1.Columns(24).Cells(Ws1.Rows.Count).End(xlUp).Offset(1)
Range(c.Offset(, -18), c.Offset(, 34)).Copy z.Offset(, -18)
End If
Next c
Set Ws2 = Nothing
Set Ws1 = Nothing
End Sub