Zahl, dann Leerzeichen löschen
05.04.2017 19:36:15
Max2
ich habe ein paar Funktionen die mir Daten aus Tabellen holen und in ComboBoxen schreiben.
Nun ist das Problem, dass ich teilweise einen Namen untersuchen muss auf bestimmte kriterien.
Problem 1: Zahlen sind am Ende enthalten
Lösung zu 1:
If IsNumeric(Right(name, 1)) Then
name = Left(name, Len(name) - 1)
Lösung: einfach auf Leerzeichen hinten prüfen aber ich bekomm es nicht hin...
könnt ihr mir helfen?
Hier ein bisschen echter Code:
Function check_Name(ByVal check As String) As String
If IsNumeric(Right(check, 1)) Then
check_Name = Left(check, Len(check) - 1)
Exit Function
End If
.mehr Code aber irrelevant
End Function
Anzeige