also wenn du nur gleiche, aufeinanderfolgende zeichen löschen willst, dann mach das doch über string-abbau und -aufbau.
etwa so
Code:
sOriginal = "72556"
cErsatz = "R"
cFirstCharOrig = ""
cLastCharNew = ""
iForEnd = Len(sOriginal)
sNewstring = ""
sNewstring = sNewstring & Left(sOriginal, 1)
sOriginal = Right(sOriginal, Len(sOriginal) - 1)
For ilauf = 1 To iForEnd - 1
cFirstCharOrig = Left(sOriginal, 1)
cLastCharNew = Right(sNewstring, 1)
If cFirstCharOrig = cLastCharNew Then cFirstCharOrig = cErsatz
sNewstring = sNewstring & cFirstCharOrig
sOriginal = Right(sOriginal, Len(sOriginal) - 1)
Range("a" & ilauf).Value = cFirstCharOrig
Range("B" & ilauf).Value = cLastCharNew
Next ilauf
falls du alle in der zeichenkette vorkommenden ab einem bestimmten ersetzen willst, bau den string ab und Suche das weitere vorkommen in string.
schau dir mal die die funktionen
an
die gibt es unter awk - evtl auch unter c
gruß
downad
Lesezeichen