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

[Jonas0806]

Hallo Alexandra,

ich würde sagen, mit 3 Replace-Anweisungen...

Du könntest auch substitute verwenden, dafür dann vorher die Range in ein Array schreiben, danach das Array mit einer For-Schleife durchlaufen, substitute verschachteln und das Array zurück in die Range schreiben.