Bonsoir,
une proposition via une macro
Sub aargh()
With Sheets("preise 2015")
dl = .Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To dl
.Cells(i, 1).Replace "ARDEX", ""
.Cells(i, 1).Replace " ", ""
.Cells(i, 2) = "ARDEX " & .Cells(i, 1) & " " & .Cells(i, 2)
Select Case .Cells(i, 11)
Case "I"
.Cells(i, 11) = 0.31
Case "II"
.Cells(i, 11) = 0.32
Case "III"
.Cells(i, 11) = 0.33
End Select
Next i
End With
End Sub