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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen