ich möchte in einem String, zwei aufeinander folgende identische Zeichen löschen.
Also, wenn in der Zelle A1:"Hallo" steht, soll in B1:"Halo".
Hat jemand eine Idee, wie man das mit einem Marko lösen kann?
VG
Armin
txt1 = Range("A1").Value
txt2 = Left(txt1, 1)
For i = 2 to len(txt1)
If Mid(txt1, i, 1) Mid(txt1, i - 1, 1) then
txt2 = txt2 & Mid(txt1, i, 1)
End if
Next
Range("B1").value = txt2
Gruß Daniel