FlowFact - Entwicklungstools v19.881 FLOWFACT 2017 R2 - Function - FindByShort

Nach Anredekürzel suchen

Hinweis: Suche ist unabhängig von Groß- und Kleinschreibung (caseinsensitiv)
Function FindByShort(ByVal strSalutationShort As String) As Integer


strSalutationShort: Anredekürzel; z.B. Herr, Frau, Firma, ... oder Leerstring
Rückgabewert: Listenindex; -1 wenn nicht gefunden


Public Function FindByShort(ByVal strSalutationShort As String) As Integer
    Dim i As Long
    Dim strFind As String

    strFind = UCase(Trim(strSalutationShort))
    For i = 1 To m_oList.Count
        If strFind = UCase(Trim(SalutationShort(i))) Then
            FindByShort = i
            Exit Function
        End If
    Next

    FindByShort = -1
End Function