sammenligne to ark, og overfore vaerdier

Sub shift()

Dim number, text, cBegin, cEnd, t, rk, b, e

b = 1
e = 400

Do While b < e

Sheets("2").Activate
Sheets("2").Select
x = Cells(b, 1).Value
text = Cells(b, 3).Value
Sheets("1").Activate
rk = Cells(65500, 1).End(xlUp).Row
For t = 1 To rk
y = Cells(t, 1).Value
If x = y Then Cells(t, 3).Value = text
Next

b = b + 1

Loop

End Sub

.