Werte ersetzen: alles ausser x
31.01.2007 13:12:25
mtremer
ich habe eine Frage, die Ihr bestimmt beantworten könnt.
Mit folgendem Code suche und ersetze ich in einem bestimmten Bereich alle "Moin" in "Hallo":
Range("B18:C317").Select
Selection.Replace What:="Moin", Replacement:="Hallo", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Wie kann ich den Code umschreiben, sodass alles ausser "Guten Tag" in "Hallo" geändert wird?
Ich tue mich nämlich schwer, jede einzelne Begrüßung mit einem eigenen Befehl zu versehen...
Danke für Eure Mühe.
Viele Grüße
Marco