nur bestimmte Zeichen ersetzen
09.06.2006 07:18:03
Enrico
Ich möchte gern in einem vorher markierten Bereich ein bestimmtes Zeichen durch ein anderes ersetzen. (z.B. "a" durch "b") In dem Bereich können aber auch in einigen Zellen Formeln stehen, die ja auch den Buchstaben "a" enthalten können.
Diese möchte ich unverändert lassen. Nur Zellen die ausschließlich ein "a" enthalten sollen ersetzt werden.
Im Moment bin ich so weit.
Sub ersetzen()
var1 = Selection
On Error GoTo ende
If var1 = "a" Then
Selection.Replace What:="a", Replacement:="b", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Else
If var1 = "c" Then
Selection.Replace What:="c", Replacement:="d", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End If
End If
ende:
End Sub
Das funktioniert aber nur mit einer selectierten Zelle.
kann da jemand weiterhelfen?
Danke