|
Guten Morgen Zusammen,
wie kann ich es in VBA umsetzen das wenn in einer Zeile, ein bestimmtes Wort steht,
in einer anderen bestimmten Zeile bestimmte Worte ersetzt werden?
Also in Worten: Wenn in Zeile B "XY" steht, soll in Zeile E das Wort "X" mit "A" ersetzt werden und das Wort "Y" mit "B".
Ich kenne bereits den Replace Operator, leider kann ich bisher damit nur Stupide Suchen und Ersetzen.
Sub FindReplace()
On Error Resume Next
Dim sht As Worksheet
Dim fnd As Variant
Dim rplc As Variant
fnd = "XY"
rplc = "YX"
Set sht = Sheets("Datenbasis")
sht.Cells.Replace what:=fnd, Replacement:=rplc, _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _
SearchFormat:=False, ReplaceFormat:=False
End Sub
Liebe Grüße
|