Suchkriterium ungenau

[chrissy]

Hallo, 

ich will bestimmte Namen in einer Matrix suchen. 

Frage: Manchmal unterscheiden sich die Namen in der Schreibweise. Statt Peter Müller, steht in der Matrix Peter P. Müller. Ich kann auch nur den Nachnamen oder nur Vornamen nicht nehme,da es mehrere gleiche Vor- oder Nachnamen gibt. 

Was jemand weiter?

[WillWissen]

Hi Chrissy,

ist Peter Müller in deinem Beispiel mit Peter P. Müller identisch oder handelt es sich um zwei verschiedene Personen?

[chrissy]

Indentisch.

[Fennek]

Hallo,

solche "unsscharfen" Suchen gehören zu den sehr komplexen Fragen, da müßtest Du die Frage schon mit mehr als einem Beispiel belegen.

Sofern es nur den Fall mit einem abgekürzten 2. Vornamen geben sollte, wäre es relativ einfach.

mfg

(aber wenn Du dir keine Mühe gibst, warum sollte dies ein potentieller Antworter tun?)

[shift-del]

Moin

Fuzzy Lookup von Microsoft
Fuzzy Matching (MrExcel-Forum)

[MisterBurns]

@shift-del: Geiler Scheiß!  :15: :05:

[Fennek]

gibt es auch andere Varianten?

Code:

Sub Vorbereitung()
Nm = Array("Peter Müller", "Peter P.Müller", "Dr.Peter Müller", _
    "Prof.Peter Müller", "Prof.Dr.Peter Müller", _
    "Prof.Dr.Peter P.Müller")
Range("A1").Resize(UBound(Nm) + 1) = Application.Transpose(Nm)
End Sub

Function Namen_einfach(ByVal rng) As String
If InStr(1, rng, ".") > 0 Then
    Tx = Split(rng)
    For i = 0 To UBound(Tx)
        If InStr(1, Tx(i), ".") > 0 Then Tx(i) = vbNullString
    Next i
    rng = Join(Tx, " ")
End If

Namen_einfach = WorksheetFunction.Trim(rng)


End Function