VBA: Ersetzen - Verhindern
24.08.2017 22:50:40
Darren
wie kann ich verhindern, dass das falsche ersetzt wird?
Ideen Möglichkeiten?
Ein Beisiel:
txt1: Ich kann nicht verhindern, dass meine AGENDA (AG soll nicht ersetzt werden) in der Firma Bruderhelp AG durcheinander gebracht wird.
Sub ReplacingText()
Dim i%, txt1, txt2
txt1 = Array("AG")
txt2 = Array(" ")
For i = 0 To UBound(txt1)
Cells.Replace What:=txt1(i), Replacement:=txt2(0), LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Next i
End Sub
Darren
Anzeige