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 |