Projekt-Anfragen: Tel: 07022/9319004 info@CodeDocu.de Software Entwicklung in C# WPF Asp.Net Core Vba Excel Word SQL-Server EF Linq, UWP Net
#

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
»
Excel: RTF umschreiben zu HTML
»
Excel vba: RTF in HTML umwandeln
»
Feiertage und Ostern mit Excel berechnen
»
Excel : Zeilen löschen per vba Code
»
Excel: Umwandeln von Nummern, Datum und Uhrzeit in Text
»
Excel: Wandle Buchstaben in Ascii Zahlen um
»
Excel: Wandle Buchstaben in Ascii Zahlen um
»
Excel Speichern als .CSV mit Semikolon zeichen
»
Vba Makro Code: So erstellt man ein Excel Workbook und Sheet zur Laufzeit ohne Excel Verweis
»
Office Verzeichnis Dialog ohne Verweis auf ObjectLibrary

.

Jobs, Projekte, Angebote für Freiberufler, Selbstständig an Info@CodeDocu.de