Clear contents in specific cell and the cells in the next 2 columns to the right

Try this code..
I am sure ... I will work.. I may require some adjustments..

set x=Columns(1) .Find What:=Kunde.value,Searchorder:=byxlcolumns, LookAt:=x1Part, MatchCase:=True
do while x<>nothing
x.clearcontents
x.offset(0,1).clearcontents
x.offset(0,2).clearcontents
set x=Columns(1) .Find What:=Kunde.value,Searchorder:=byxlcolumns, LookAt:=x1Part, MatchCase:=True
loop

Waiting for *

This will work for 1 positive match of Kunde.Value. If you want multiple matches let me know.

Dim rFind As Range

Set rFind = Range("A1").EntireColumn.Find(What:=Kunde.Value, LookIn:=xlValues, LookAt:=xlWhole)

If Not rFind Is Nothing Then
    rFind.Resize(1, 3).ClearContents
    rFind.Resize(1, 3).Interior.ColorIndex = xlNone
End If

Thank you they both work.

Regards

jeremy