|
Beste Grüße an alle!
Ich habe da eine Frage zu einer Handhabung und Filterung mit Strings.
Mein Problem:
1. Nur oberflächliches, eingerostetes VBA-Wissen ^^
2. versuche ich gerade auf einem Quarksammelsorium von Sonderzeichen, die sich mit Klartext vermischen eine Mailadresse herauszufiltern.
Mein String könnte beispielsweise so aussehen:
blabla1!"§$%&/(=)"/"mail@mail.de
a - z sowie 0 - 9 und die Sonderzeichen . und @ sollen erhalten bleiben. Allerdings sollen die Zeichen nicht ersatzlos gelöscht sondern gegen einen Leerschritt getauscht werden:
blabla1 mail@mail.de
Ich habe bisher folgenden (zusamengeklauten) Ansatz:
Function Filterung(ByVal Textfolge As String, ByVal Buchstaben As String) As String
For i = 1 To Len(Textfolge)
If InStr(1, Buchstaben, Mid$(Textfolge, i, 1), Compare) Then Filterung = Filterung & Mid$(Textfolge, i, 1)
Next i
Funktioniert soweit fast gut, allerdings habe ich noch das Problem, dass er mit bei diesem Ansatz eben alles ersatzlos killt. Kann mir da noch jemand den entscheidenden Tipp geben, wie man da noch das Leerzeichen unterbirngt, wenn man die Funktion mit
Okayzeichen = ".@äöüabcdefghijklmnopqrstuvwxyz0123456789"
Eingabetext = Eingabetext(Text, Okayzeichen)
aufrufe?
Besten Dank im Voraus! :-)
|