Office: sverweis: Mit Namen und Vornamen suchen

Hallo Excelprofis,

ich habe folgendes Problem.

Ich habe eine Mitgliedertabelle, in der in ca. 40 Spalten zu einigen hundert Namen Daten hinterlegt sind.
Nun ist es so, dass bspw. Müller mehrfach vorkommt, also mit verschiedenen Vornamen.

Die Daten mit sverweis dem entsprechenden Nachnamen zuzuordnen funktioniert gut. Nur weiß ich nicht, wie ich den Vornamen in die Suche einbinden soll.

Ich würde mich über einen nützlichen Tipp sehr freuen.

Danke und freundliche Grüße
Rico

 

Hallo Rico,

in den Spalten A:G befindet sich mein Beispieldatenbestand.
In Spalte H würde ich ein sogenanntes MatchCode-Feld einrichten, das aus den Formeln (siehe unten) besteht.
in Zelle J2 und K2 können Teile des Familiennamens und wenn nötig des Vornamens eingegeben werden. Wenn (nur) Teile des Familiennamens eingegeben werden, muss der Rest durch einen * ergänzt werden, falls auch Teile des Vornamens eingegeben werden.
Daraus wird in Zelle L2 ein Matchcode errechnet, der dann in Zelle L4 verwendet wird, um die Zeilennummer aus dem Beispieldatenbestand zu ermitteln, falls dort ein Adresseintrag gefunden wurden.
Es wird stets die Nummer der 1. gefundenen Adresse angezeigt.
Falls der MatchCode in L2 zu keinem Eintrag in Spalte H passt, wird in L4:L8 überall #NV (= nicht verfügbar) angezeigt.

Die Formeln in L5:L8 geben dann beispielhaft einige Felder wider, falls ein Adresseintrag gefunden wurde.

A

B

C

D

E

F

G

H

I

J

K

L

1

Anrede

FamName

Vorname

Strasse

PLZ

Ort

Land

MatchCode

FamName

Vorname

MatchCode

2

Herr

Müller

Franz

Straße 1

52610

Düsseldorf

D

Müller Franz

Mü*

B

Mü* B*

3

Frau

Müller

Berta

Am Anger 3

5020

Salzburg

A

Müller Berta

4

Herr

Meier

Alois

Bergern 5

92999

Oberdorf

D

Meier Alois

in Zeile

3

5

Strasse

Am Anger 3

6

PLZ

5020

7

Ort

Salzburg

8

Land

A

Zelle	Formel
H2	=B2&" "&C2
L2	=J2&WENN(LÄNGE(K2);" ";"")&K2&"*"
H3	=B3&" "&C3
H4	=B4&" "&C4
L4	=VERGLEICH(L2;H1:H7;0)
H5	=B5&" "&C5
L5	=INDEX($A$1:$H$7;$L$4;4)
H6	=B6&" "&C6
L6	=INDEX($A$1:$H$7;$L$4;5)
H7	=B7&" "&C7
L7	=INDEX($A$1:$H$7;$L$4;6)
L8	=INDEX($A$1:$H$7;$L$4;7)

 

Hallo Exl121150 ,

danke für deine rasche Antwort. Um ehrlich zu sein überfordert sie mich total. Ich bin froh, wenn ich zwei Werte zusammenrechnen kann und vom sverweis habe ich auch nur zufällig gehört. Naja, mal sehen. Muss ich halt ein wenige deine Formeln studieren und versuchen etwas zu verstehen.

Könntest du mir das Beispiel in eine Tabelle machen und bereitstellen? Da komme ich vielleicht weiter.

Danke und ich freue mich, dass man Ansprechpartner hat, wenn es mal hängt.

LG Rico

 

Hallo,

Excel ist etwas mehr als ein Buchstabenfriedhof (a la WinWord). Es lebt von Berechnungen, die bequem eingebbar sind. Und dafür sind eben die Funktionen wichtig.
Nachfolgend die gewünschte Excel-Datei - versehen mit Kommentaren.

 

Hallo Exl121150,

danke für die schnelle Zuarbeit. Ich bin einigermaßen baff, muss ich echt gestehen. Jedenfalls habe ich erstmal zu tun.

Ich habe mir soeben ein Excel-Buch bei Amazon bestellt - von Bernd Held, wenn er dir etwas sagt. Das soll so ein Guru sein.

Also danke nochmal und ich bin begeistert von diesem Forum und euch Helfern in der Not.

Gruß Rico

 

In der Tat, Herr held hats drauf :-)

 

Hallo @Susefan,

Ich habe daher die Adressdaten dieses Beitrags herangezogen, um den Spezialfilter mit Makrosteuerung zu demonstrieren.
Ich habe ins Arbeitsblatt einigen Kommentar eingefügt. Außerdem füge ich hier nochmals das Makro an, das diese Steuerung durchführt im Arbeitsblatt 'Tabelle1':

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim SuchAusführg As Range
  Dim SuchkritZeilen As Integer
  
  With Range("Suchkriterien")
   'Anzahl Suchkriterienzeilen+Kopfzeile
    SuchkritZeilen = .Rows.Count
   'Automatische Ermittlung des blauen Bereiches für die Befehlsausführung:
   'Ist stets die Zeile unmittelbar unterhalb der Suchkriterien:
    Set SuchAusführg = .Offset(SuchkritZeilen).Resize(1)
  End With
  
  'Falls aktive Zelle im blauen Bereich enthalten ist:
  If Not Application.Intersect(Target, SuchAusführg) Is Nothing Then
    'Führe die Spezialfilterung aus:
    Range("Datenbank").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("Suchkriterien"), _
        CopyToRange:=Range("Zielbereich"), _
        Unique:=True
  End If
End Sub