Option Explicit
Sub Test()
Dim i As Long
With Worksheets("Tabelle1")
For i = 2 To .Cells(.Rows.Count, "C").End(xlUp).Row
If Contains(.Cells(i, "C"), "Kunde4", "Kunde5", "Kunde6") _
And Contains(.Cells(i, "D"), "30302543") _
And Contains(.Cells(i, "E"), "Produkt 06", "Produkt 09") _
Then
.Cells(i, "D").Value = "10" & .Cells(i, "D").Value
End If
Next
End With
End Sub
Private Function Contains(Cell As Excel.Range, ParamArray Values() As Variant)
Dim vntValue As Variant
For Each vntValue In Values
Contains = StrComp(Cell(1).Value, vntValue, vbTextCompare) = 0
If Contains Then Exit Function
Next
End Function