Sub Text()
Dim intLetzteZeile As Integer
Dim intStartZeile As Integer
Dim intQuellSpalte As Integer
Dim intZielSpalte As Integer
Dim i As Integer
Dim strSuchText As String
Dim strZielText As String
strSuchText = "Silvan"
strZielText = "Hurra"
intStartZeile = 2
intLetzteZeile = ActiveSheet.Cells.SpecialCells(xlLastCell).Row
intQuellSpalte = 2
intZielSpalte = 1
For i = intStartZeile To intLetzteZeile
If Cells(i, intQuellSpalte).Value = strSuchText Then
Cells(i + 1, intZielSpalte).Value = strZielText
End If
Next
End Sub