makro erstellen mit ALT+F11 Neues Modul
Function LetterOut (rng As Range)
Dim i As Integer
For i = 1 To Len(rng)
Select Case Asc(Mid(rng.Value, i, 1))
Case 0 To 64, 123 To 197
LetterOut = LetterOut & Mid(rng.Value, i, 1)
End Select
Next i
End Function
und dann neue spalte einfügen und die Formel =LetterOut(B3)z.B schreiben