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 |