Microsoft Excel

Herbers Excel/VBA-Archiv

RegExp und Umlaute ersetzen | Herbers Excel-Forum


Betrifft: RegExp und Umlaute ersetzen von: ing.grohn
Geschrieben am: 08.01.2012 22:53:02

Hallo forum,
im Netz habe ich folgende Routine gefunden:

strText = "schönes Haus an einer Bergstraße"
 suchen = Array("ä", "ö", "ü", "ß", " ", "\\", "/")
 ersetzen = Array("ae", "oe", "ue", "ss", "_", "-", "-")
 strText = str_replace(suchen, ersetzen, strtolower(strText))

lässt sich das auch mit regulären Ausdrücken realisieren
Vielen Dank für eine Antwort und einen schönen Abend
Mit freundlichen Grüßen
Albrecht

  

Betrifft: AW: RegExp und Umlaute ersetzen von: Josef Ehrensberger
Geschrieben am: 08.01.2012 23:20:33


Hallo Albrecht,

dem Anschein nach handelt es sich dabei um php-Code, die entsprechenden Funktionen sind in VBA nicht enthalten.

das geht in VBA z. B. so.

Sub albrecht()
  Dim strText As String
  Dim suchen As Variant, ersetzen As Variant
  Dim lngIndex As Long
  
  strText = "schönes Haus an einer Bergstraße"
  suchen = Array("ä", "ö", "ü", "ß", " ", "\\", "/")
  ersetzen = Array("ae", "oe", "ue", "ss", "_", "-", "-")
  
  For lngIndex = 0 To UBound(suchen)
    strText = Replace(strText, suchen(lngIndex), ersetzen(lngIndex))
  Next
  
  Debug.Print strText
  
End Sub




« Gruß Sepp »



  

Betrifft: AW: RegExp und Umlaute ersetzen von: ing.grohn
Geschrieben am: 09.01.2012 06:21:57

Hallo Sepp,
frohes Neues und ohne viele Worte: vielen Dank!
Mit freundlichen Grüßen
Albrecht


Beiträge aus den Excel-Beispielen zum Thema "RegExp und Umlaute ersetzen"