Umlaute in vba werden ignoriert
Chris
ich habe folgenden Prozess:
1. Ich kopiere aus einer Quelle mehrere E-Mail Adressen.
2. Ich liste sie in einer Zelle einzeln auf mit Hilfe eines Zeilenumbruchs
3. Ich lese den Zeilenumbruch aus und schreib jede Adresse in eine eigene Neue Zeile.
Mein Problem:
Wenn eine Email-Adresse einen Umlaut enthält, dann liest er nicht die ganze Adresse.
Er lässt den Umlaut selber und alles was davor steht weg...
Eine Lösung?
Mein Code:
Option Explicit
Public Function Email_Filter(strB As String) As String
Dim varTmp() As Variant
Dim Regex As Object
Dim M
Dim Treffer
Dim lngIndex As Long
Set Regex = CreateObject("Vbscript.regexp")
With Regex
.Pattern = "\b(\w[-.\w]*@\w[-.\w]*\.[a-zA-Z]{2,6})\b"
.IgnoreCase = True
.Global = True
Set Treffer = .Execute(strB)
If .Test(strB) Then
ReDim varTmp(Treffer.Count)
For Each M In Treffer
varTmp(lngIndex) = M.Value
lngIndex = lngIndex + 1
Next
End If
End With
Email_Filter = Join(varTmp, vbCrLf)
End Function
Anzeige