ich hab hier ein kleinen Code schnipsel der nicht geht, bzw. es geht alles bis auf das Kopieren, weil ich leider nicht weis wie ich das Objekt mäßig machen muss.
i = 3
j = 3
Do Until i > row_Count_1
j = 3
Do While j str1 = wkb1.Sheets(1).Cells(i, TB1_Comp).Value
str2 = wkb2.Sheets(1).Cells(j, TB2_Comp).Value
str2 = Replace(str2, " ", "")
str1 = Replace(str1, " ", "")
If (str1 = str2) Then
wkb1.Sheets(1).Range(i, TB1_Paste) = wkb2.Sheets(1).Range(j, TB2_Copy).Value
'Gefunden wkb1.Cell soll Grün werden
Exit Do
Else
j = j + 1
End If
Loop
i = i + 1
Loop
Das dicke ist mein Problem.
mfg Tom