Readdy Write

Vba: Sonderzeichen austauschen korrigieren

10.04.2019 (👁5702)


Eine kleine Funktion für vba (Office Excel Word Outlook PowerPoint) zum verhindern, dass Sonderzeichen in Texten vorkommen.

Ansonsten kann man oft Dateinamen nicht speichern oder bei HTML Sonderzeichen nicht verwenden

Option Explicit

Public Function Sonderzeichen_entfernen(ByVal sText As String) As String

    '----------< Sonderzeichen_entfernen() >--------------

    sText = Replace(sText, "/", " ")    '*frontslash entfernen

    sText = Replace(sText, "\", " ")    '*Korrektur

    sText = Replace(sText, ":", " ")    '*Korrektur

    sText = Replace(sText, ".", " ")    '*Korrektur

    sText = Replace(sText, ",", " ")    '*Korrektur

    sText = Replace(sText, ";", " ")    '*Korrektur

    sText = Replace(sText, "*", " ")    '*Korrektur

    sText = Replace(sText, "?", " ")    '*Korrektur

    sText = Replace(sText, "{", " ")    '*Korrektur

    sText = Replace(sText, "}", " ")    '*Korrektur

    sText = Replace(sText, "[", " ")    '*Korrektur

    sText = Replace(sText, "]", " ")    '*Korrektur

    sText = Replace(sText, "$", " ")    '*Korrektur

    sText = Replace(sText, """", " ")    '*Korrektur

    sText = Replace(sText, "'", " ")    '*Korrektur

    sText = Replace(sText, "!", " ")    '*Korrektur

    sText = Replace(sText, "°", " ")    '*Korrektur

    sText = Replace(sText, "*", " ")    '*Korrektur

    sText = Replace(sText, "#", " ")    '*Korrektur

    sText = Replace(sText, "~", " ")    '*Korrektur

    sText = Replace(sText, "=", " ")    '*Korrektur

    sText = Replace(sText, ">", " ")    '*Korrektur

    sText = Replace(sText, "<", " ")    '*Korrektur

    sText = Replace(sText, "|", " ")    '*Korrektur

   

    '< Ausgabe >

    Sonderzeichen_entfernen = sText

    '</ Ausgabe >

    '----------< Sonderzeichen_entfernen() >--------------

End Function


0,00 €