Projektanfrage

Projektanfrage über Web Formular   per Online-Formular 
Projektanfrage über E-Mail  Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein!
Projektanfrage per Telefon  +49 (0)151 / 164 55 914
Projektanfrage weitere Informationen  weitere Informationen 

Sie benötigen Hilfe oder Unter-stützung? Nutzen Sie für Ihre Anfrage unser Online-Formular, senden Sie uns eine Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein! oder rufen Sie uns einfach an.

   
      Referenzen 

 Bosch 
  T-Systems
  Hagebau
  Siemens
 Areva  VW
 Haufe-Lexware  British American Tobacco
  nagel group farbe
   
     Programmierung
Excel Auftragsprogrammierung Access Auftragsprogrammierung
Word Auftragsprogrammierung Outlook Auftragsprogrammierung
   
   

Projektanfrage

 Sie benötigen eine Auftragsprogrammierung?
 Oder suchen Unterstützung bei der Lösungs-
 findung?

  Nutzen Sie unser Anfrageformular

  Jetzt anrufen unter 0151 / 164 55 914

 Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein! Projektanfrage per Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein! senden

  Weitere Informationen

sitepanel question2

P
r
o
j
e
k
t
a
n
f
r
a
g
e
   

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

  • Gelöschte Elemente aus PivotTable Auswahl entfernen

    Ein bekanntes Problem im Zusammenhang mit PivotTables ist die Tatsache, dass Einträge die aus der Quelldatei für die PivotTable gelöscht wurden, weiterhin im Auswahlfeld der PivotTable vorhanden...

  • Windows-Prozesse auslesen und beenden

    Per VBA lassen sich sämtliche laufenden Windows-Prozesse auslesen und gezielt beenden.  Der folgende VBA-Code liest alle Windows-Prozesse aus und trägt diese in Spalte A ab Zeile 1 nacheinander in...

  • Markierte Zellen summieren

      Mit dieser Prozedur, werden alle markierten Zellen summiert. Dabei wird geprüft, ob die einzelnen Zellen eine Zahl enthalten. Nur dann wird die Zelle in die Summenbildung mit einbezogen.   Geben Sie...

  • IBAN in Excel ermitteln - Neue Funktion

    Am 01.02.2014 tritt SEPA für alle Euro-Mitgliedsstaaten endgültig in Krafft. Zu diesem Zeitpunkt müssen alle bargeldlosen Zahlungen im EURO-Raum im SEPA-Format durchgeführt werden. SEPA steht für Single...

  • Prüfen, ob eine Formel in einer bestimmten Zelle steht

    112018 1. Möglichkeit ohne VBA Um zu ermitteln, ob eine Formel in einer bestimmten Zelle steht, gibt es 2 Möglichkeiten.Bei der ersten Möglichkeit wird dies ohne VBA festgestellt, also nur mit...