#

Vba: Sonderzeichen austauschen korrigieren

 

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

 

Mobile

.

0123movie.net