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
in der Zielzelle z.B. B2 eingeben "=vatolinreplace(A2)"
Du kannst oben noch andere bekannte Ersetzungen nach dem Schema anlegen.
VG
Show Plain Text
- Public Function vatolinreplace(theValue As Range)
- Dim returnVal As String
- returnVal = theValue.Text
- returnVal = Replace(returnVal, "Ä", "Ae")
- returnVal = Replace(returnVal, "Ö", "Oe")
- returnVal = Replace(returnVal, "Ü", "Ue")
- returnVal = Replace(returnVal, "ä", "ae")
- returnVal = Replace(returnVal, "ö", "oe")
- returnVal = Replace(returnVal, "ü", "ue")
- returnVal = Replace(returnVal, "ß", "ss")
- returnVal = Replace(returnVal, " ", "_")
- For i = 0 To 31 Step 1
- returnVal = Replace(returnVal, Chr(i), "_")
- Next i
- For j = 129 To 255 Step 1
- returnVal = Replace(returnVal, Chr(j), "_")
- Next j
- vatolinreplace = returnVal
- End Function
in der Zielzelle z.B. B2 eingeben "=vatolinreplace(A2)"
Du kannst oben noch andere bekannte Ersetzungen nach dem Schema anlegen.
VG