Readdy Write  
0,00 €
Your View Money
Views: Count
Self 20% 0
Your Content 60% 0

Users by Links 0
u1*(Content+Views) 10% 0
Follow-Follower 0
s2*(Income) 5% 0

Count
Followers 0
Login Register as User

Vba: Sonderzeichen austauschen korrigieren

10.04.2019 (👁77)


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