Option Explicit

'1A fix;
'1B prüft 2D
'1C = 2B, wobei "de_DE@" vorweg soll
'1D = 2A
'1E = 2E

Public Sub Vergleich()
Dim a%, b%, LZA%, LZA2%
Dim wks1 As Worksheet, wks2 As Worksheet
Dim ar1, ar2, ar3

Set wks1 = ThisWorkbook.Sheets("Tab1")
wks1.Activate
LZA = wks1.Columns(1).Find("*", [A1], , , xlByRows, xlPrevious).Row
ar1 = wks1.Range(Cells(3, 1), Cells(LZA, 5))
ar3 = wks1.Range(Cells(3, 1), Cells(LZA, 5))

Set wks2 = ThisWorkbook.Sheets("Tab2")
wks2.Activate
LZA2 = wks2.Columns(1).Find("*", [A1], , , xlByRows, xlPrevious).Row
ar2 = wks2.Range(Cells(1, 1), Cells(LZA2, 5))

For a = LBound(ar1) To UBound(ar1)
    For b = LBound(ar2) To UBound(ar2)
        If ar1(a, 2) = ar2(b, 4) Then
            'Debug.Print a & " a>>b " & b & " >> " & ar1(a, 1) & " >> " & ar2(b, 1) & " VK= " & ar2(b, 5)
            ar3(a, 3) = "de_DE@" & ar2(b, 2)
            ar3(a, 4) = ar2(b, 1)
            ar3(a, 5) = ar2(b, 5)
            b = UBound(ar2)
        End If
    Next b
Next a
Sheets("Tab1").Activate
Sheets("Tab1").Range(Cells(3, 10), Cells(LZA, 14)) = ar3
End Sub