Makro

Sub kopieren()
Dim i As Integer
ende = Rows(1).Count
For i = 1 To ende
If Sheets(1).Cells(i, 1).Text = Sheets(2).Cells(i, 1).Text Then
Sheets(2).Value("b") = Sheets(1).Value("a")
Else
End If
Next
End Sub