Fjerne ugyldige tegn fra tekst.

Sub test()
Dim x, y, navn, xnavn
navn = Cells(1, 1)
For y = 1 To Len(navn)
x = Mid(navn, y, 1)
If Asc(x) >= 65 And Asc(x) <= 122 Then
If Asc(x) <= 90 Or Asc(x) >= 97 Then
xnavn = xnavn + x
End If
End If
Next
Cells(1, 1) = xnavn

End Sub

Tal skulle vist ikke sorteres fra.!

Sub test()
Dim x, y, navn, xnavn
navn = Cells(1, 1)
For y = 1 To Len(navn)
x = Mid(navn, y, 1)
If Asc(x) >= 48 And Asc(x) <= 57 Then xnavn = xnavn + x: GoTo om
If Asc(x) >= 65 And Asc(x) <= 90 Then xnavn = xnavn + x: GoTo om
If Asc(x) >= 97 And Asc(x) <= 122 Then xnavn = xnavn + x
om:
Next
Cells(1, 1) = xnavn
End Sub

*