![]() |
FlowFact - Entwicklungstools |
![]() |
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 |