suchen und ersetzen

Sub ersetzen()
Dim intI As Integer
For intI = 1 To 1000
If Cells(intI, 1).Value = "Platz 1" Then Cells(intI, 1).Value = "Platz 1"
If Cells(intI, 2).Value = "Platz 2" Then Cells(intI, 2).Value = "Platz 2"
If Cells(intI, 3).Value = "Platz 3" Then Cells(intI, 2).Value = "Platz 3"
Next
End Sub