Replace mehrer Werte!

[cysu11]

Selection.Replace What:="*vk*", Replacement:="Karton", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
Hi liebe Excelgemeinde,



mit folgenden Code ersetze ich, in den markierte Bereich alles was  "vk" beinhaltet in den Wort "Karton"



Wie muss ich den Code ändern, wenn ich mehrere Werte ersetzen möchte auch jeweils in das Wort "Karton"?

z.B.

Selection.Replace What:="*vk* oder *v2* oder *usw*", Replacement:="Karton", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False


Vielen Dank
VG
Alexandra