Function Karsten(strText As String)
Dim i As Integer
For i = 1 To Len(strText)
Select Case Asc(Mid(strText, i, 1))
Case 65 To 90, 97 To 122, 196, 228, 214, 246, 220, 252, 223
Karsten = Mid(strText, i)
Exit Function
End Select
Next i
End Function
in ein Modul:
Sub Entfernen_Nicht_Buchstaben()
Dim Zelle As Range
For Each Zelle In Selection
Zelle.Value = Loeschen_bis_Buchstabe(Zelle.Value)
Next
End Sub
Public Function Loeschen_bis_Buchstabe(sText As String) As String
'Entfernen der Zeichen bis zum 1. Buchstaben im Text
Dim iPos As Long
Loeschen_bis_Buchstabe = sText
For iPos = 1 To Len(sText)
Select Case Asc(Mid(sText, iPos, 1))
Case 65 To 90 'A bis Z
Exit For
Case 97 To 122 'a bis z
Exit For
Case 138, 140, 142, 154, 156, 158, 159, 192 To 214, 216 To 246, 248 To 255 ' _
Sonderbuchstaben
Exit For
Case Else
End Select
Next
If iPos > Len(sText) Then
Loeschen_bis_Buchstabe = ""
Else
Loeschen_bis_Buchstabe = Mid(sText, iPos)
End If
End Function