For x = 2 To .UsedRange.SpecialCells(xlCellTypeLastCell).Row
If .Cells(x, 1).Value <> "" Then
linkTarget = LTrim(.Cells(x, N_Link_1).Value2)
linkTarget = Replace(linkTarget, vbCR, "")
For w = 2 To feedsheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
linkFeed = LTrim(feedsheet.Cells(w, link_2).Value2)
linkFeed = Replace(linkFeed, vbCR, "")
Debug.Print linkTarget
Debug.Print linkFeed & " =" & linkTarget = linkFeed
If linkFeed = linkTarget Then
.Cells(x, main_link_target) = feedsheet.Cells(w, main_link_source)
.Cells(x, image) = feedsheet.Cells(w, image_source)
.Cells(x, beschreibung) = feedsheet.Cells(w, description)
.Cells(x, g_d_preis) = feedsheet.Cells(w, preis)
.Cells(x, price) = feedsheet.Cells(w, preis)
End If
Next w
End If
Next x
End With