wie kann ich per Makro in beliebig markiertem Zellenbereich die Zeichen ersetzen?
z.B.
#273 ersetzten durch dj
#269 ersetzten durch c
#382 ersetzten durch s
#272 ersetzten durch DJ
#381 ersetzten durch S
Dankeschön im Voraus....
Liebe Grüße
SELMA
Sub ersetzen()
Dim rng As Range
For Each rng In Selection
rng = Replace(Replace(Replace(Replace(Replace(rng, "#273", "dj"), _
"#269", "c"), "#382", "s"), "#272", "DJ"), "#381", "S")
Next
End Sub