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
In der Zellen steht Platz 2[Turnier]oder Platz 1[14] ich möchte aber das nur Platz 1 oder Platz 2 als Info hinterlegt wird.