Excellent

Dirk-Lothar Dr. Hornauer:

Nochmals vielen Dank an Andreas und Peter für das "Mitkämpfen".

Dirk-Lothar Dr. Hornauer:

Aber jetzt kommt's: Wenn man mit F2 nochmals in den Editiermodus geht und mit Return abschließt, dann ist die Welt in Ordnung!!!! Peter, danke für den Tipp! Wie in aller Welt kommt man auf sowas?

Dirk-Lothar Dr. Hornauer:

Und wie bringe ich das meinem VBA-Code bei?

If iPos > 0 Then
iLen = Len(strFormula)
strFormula = "='" & Mid(strFormula, iPos + 1, iLen - iPos)
With c
.Formula = strFormula
.ClearFormats
.TextToColumns Destination:=c, _
DataType:=xlDelimited, _
TextQualifier:=xlNone, _
ConsecutiveDelimiter:=False, _
Tab:=True, _
Semicolon:=False, _
Comma:=False, _
Space:=False, _
Other:=False, _
FieldInfo:=Array(1, 1), _
TrailingMinusNumbers:=True
End With
End If