Dim sAusdruck As String
  Dim lPos As Long
 
  sAusdruck = Rechnung  
  lPos = 0
  Do
    lPos = InStr(lPos + 1, sAusdruck, "x")
    If lPos > 1 Then
      If Mid(sAusdruck, lPos + 1, 1) <> "^" Then
        sAusdruck = Left(sAusdruck, lPos) & _
          "^1" & Mid(sAusdruck, lPos + 1)
        lPos = lPos + 1
      End If
    End If
  Loop Until lPos = 0