FlowFact - Entwicklungstools

zurück

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(strSalutationShort)
    For i = 1 To m_oList.Count
        If strFind = UCase(SalutationShort(i)) Then
            FindByShort = i
            Exit Function
        End If
    Next

    FindByShort = -1
End Function