Option Explicit
Private Sub testen()
MsgBox Filterung("blablAa1!ä""§$%&/(=)""/""mail@mail.de", ".@äöüabcdefghijklmnopqrstuvwxyz0123456789", " ")
End Sub
Function Filterung(Textfolge$, Buchstaben$, Ersatzzeichen$) As String
Dim I&, Ch$
For I = 1 To Len(Textfolge)
Ch = Mid$(Textfolge, I, 1)
If InStr(1, Buchstaben, Ch) Then
Filterung = Filterung & Ch
Else
Filterung = Filterung & Ersatzzeichen
End If
Next I
End Function
Oder etwas übersichtlicher:
Option Explicit
Private Sub testen()
MsgBox Filterung("blablAa1!ä""§$%&/(=)""/""mail@mail.de", ".@äöü", " ")
End Sub
Function Filterung(Textfolge$, Buchstaben$, Ersatzzeichen$) As String
Dim I&, Ch$
For I = 1 To Len(Textfolge)
Ch = Mid$(Textfolge, I, 1)
If IsNumeric(Ch) Or LCase(Ch) Like "[a-z]" Or InStr(Buchstaben, Ch) Then
Filterung = Filterung & Ch
Else
Filterung = Filterung & Ersatzzeichen
End If
Next I
End Function
|