OK, dann hier ist er. Wie gesagt, frag einfach, wenn du was nicht verstehst.
Sub test()
meinText = getUniqueCharString("aans003")
MsgBox meinText
End Sub
Function getUniqueCharString(text As String)
If Len(text) = 1 Then
getUniqueCharString = text
Else
For i = Len(text) To 2 Step -1
If InStrRev(text, Mid(text, i, 1), i - 1) > 0 Then Mid(text, i, 1) = " "
Next i
getUniqueCharString = Replace(text, " ", "")
End If
End Function
Gruß Mr. K.
|