Ich brauche das als Excel-Funktion. Es muss unabhängig von irgendwelchen vietnamesischen oder sonstigen …

Neues Modul in VBA-Editor anlegen und den Code kopieren

Show Plain Text
  1. Public Function vatolinreplace(theValue As Range)
  2.     Dim returnVal As String
  3.     returnVal = theValue.Text
  4.    
  5.     returnVal = Replace(returnVal, "Ä", "Ae")
  6.     returnVal = Replace(returnVal, "Ö", "Oe")
  7.     returnVal = Replace(returnVal, "Ü", "Ue")
  8.     returnVal = Replace(returnVal, "ä", "ae")
  9.     returnVal = Replace(returnVal, "ö", "oe")
  10.     returnVal = Replace(returnVal, "ü", "ue")
  11.     returnVal = Replace(returnVal, "ß", "ss")
  12.     returnVal = Replace(returnVal, " ", "_")
  13.    
  14.     For i = 0 To 31 Step 1
  15.         returnVal = Replace(returnVal, Chr(i), "_")
  16.     Next i
  17.     For j = 129 To 255 Step 1
  18.         returnVal = Replace(returnVal, Chr(j), "_")
  19.     Next j
  20.    
  21.     vatolinreplace = returnVal
  22. End Function


in der Zielzelle z.B. B2 eingeben "=vatolinreplace(A2)"

Du kannst oben noch andere bekannte Ersetzungen nach dem Schema anlegen.

VG