Brauchen Sie Hilfe?
Web:     Online-Formular
E-Mail:  
Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein!
Tel:       +49(0)151 / 164 55 914

Nutzen Sie für Ihre Anfrage unser Online-Formular oder senden Sie uns eine E-Mail an Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein!. Gerne können Sie aber auch direkt telefonisch Kontakt aufnehmen.

   
     Referenzen
 Bosch 
  T-Systems
  Hagebau
  Siemens
 Areva  VW
 Haufe-Lexware  British American Tobacco
  nagel group farbe
   

Sonderzeichen aus String entfernen

In diesem Beitrag stellen wir eine Möglichkeit vor, um Sonderzeichen aus einer beliebigen Zeichenfolge zu entfernen. 

Es handelt sich um eine Funktion, welche die definieren Sonderzeichen aus dem String entfernt, siehe folgenden VBA-Code:

 

Function Clean_Sonderzeichen(ByVal strWert As String) As String
'** Dimensionierung der Variablen
Dim i As Integer
Const strSonderzeichen As String = "-.,:;#+ß'*?=)(/&%$§!~\}][{"
'** Durchlaufen des übergebenen Strings
For i = 1 To Len(strSonderzeichen)
 strWert = Replace(strWert, Mid(strSonderzeichen, i, 1), "")
Next i
'** Bereinigter String der Funktion zurückgeben
Clean_Sonderzeichen = strWert
End Function

In der Variable strSonderzeichen werden die Sonderzeichen definiert, welche aus dem String entfernt werden sollen. Diese Liste ist beliebig erweiterbar. So könnten auch Zahlen oder Buchstaben hinzugefügt werden, welche entsprechend bereinigt werden sollen.

Mit Hilfe der For-Next-Schleife wird der übergebene String durchlaufen und durch die Funktion Replace werden alle Sonderzeichen entfernt. Sollen die Sonderzeichen beispielsweise nicht entfernt, sondern durch ein "x" ersetzt werden, so ist der Befehl wie folgt zu ändern:

strWert = Replace(strWert, Mid(strSonderzeichen, i, 1), "x")

 

Die folgende Prozedur zeigt den Aufruf der Funktion:

Sub Bereinigen()
'** Dimensionierung der Variablen
Dim CleanWert As String
'** Sonderzeichen bereinigen
CleanWert = Clean_Sonderzeichen("(Hallo!) Wer ist da?")
'** Ausgabe des bereinigten Strings
MsgBox CleanWert
End Sub

Aus dem String "(Hallo!) Wer ist da?" werden in diesem Beispiel die rot markierten Sonderzeichen entfernt, so dass als Ergebnis "Hallo Wert ist da" ausgegeben wird.

 

   

Relevante Artikel

  • Anzahl Formeln in einer Arbeismappe ermitteln

    16010 Mit Hilfe dieser Prozedur werden alle Formeln einer Arbeitsmappe ermittelt werden. Dies kann beispielsweise für statistische Zwecke nützlich sein. Die Prozedur durchläuft alle vorhandenen...

  • Broschüre VBA-Programmierung

    108002 Hier können Sie eine sehr schöne und lehrreiche Broschüre über VBA-Grundlagen downloaden. Diese Broschüre liegt auf dem Server der Fern Uni Hagen. Es lohnt sich auf jeden Fall, dieses Script...

  • Gruppieren und Filtern trotz Blattschutz

    Sobald der Blattschutz aktiviert ist, gibt es keine Möglichkeit mehr, die Gruppierungsfunktion bzw. die Autofilterfunktion über Excel-Standards zu nutzen. Gleichgültig, welche Schutzoption aktiviert bzw....

  • Entwicklungsumgebung ein- und ausblenden

    400004 Mit dem folgenden Makro kann die Entwicklungsumgebung, die normalerweise mit Alt+F11 gestartet wird ein- bzw. ausgeblendet werden.Entwicklungsumgebung einblendenPrivate Sub...

  • Diagramm-Skalierung per VBA ändern

    Excel skaliert die Größenachse (Y-Achse) bei einem Diagramm standardmäßig automatisch. Natürlich kann der Maxi- und Min-Wert auch manuell für das Diagramm vorgegeben werden. Dieses Beispiel zeigt,...

   

Excel-Inside auf Facebook Excel-Live News blog Excel-Inside RSS-Feed Twitter Account für Excel-Inside Mail an Excel-Inside 

Programmierung
Excel Auftragsprogrammierung Access Auftragsprogrammierung
Word Auftragsprogrammierung Outlook Auftragsprogrammierung
   
Unsere Produkte
Office Schulungen VBA, Excel, Access
E-Book Formeln und Funktionen Excel 2013