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)
Problem 2: Nach entfernen der Zahl ist ein Leerzeichen am Ende enhalten 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