Ja, so einfach geht das dann doch nicht ^^
str=Cells(kk, 4)
daten1 = Mid(str, pos4, pos1 - pos4 + 1)
cells(kk,4)=left(str,pos4-1) & "xyz" & right(str,len(str)-(pos4+pos1-pos4+1))
Bin mir nicht ganz sicher, ob das so richtig ist... man kann es aber sicher vereinfachen, wenn man weiß wofür die Variablen stehen...
Eventuell reicht dir auch die Replace Funktion:
Cells(kk, 4)=replace(str,daten1,"xyz")
|