Office: Wert mehrere Verweise zuordnen

Guten Tag zusammen,
ich steh im Moment vor einem Problem bei dem ich ums verecken nicht weiterkomme.
Ich habe zwei verschiedene Tabellen aus der Übernahme einer alten Datenbank. Eine Tabelle ordnet einer Bestimmten ID ein bestimmtes Unternehmen zu, eine ordnet verschiedenen ID´s die Ansprechpartner in den Unternehmen zu. Wenn ich nun mit SVerweis versuche den Unternehmen die Ansprechpartner zuzuordnen dann bekomme ich immer das erste Ergebnis (ein Problem welches ja auch in diesem Forum schon zu Tode diskutiert wurde.).

Nun möchte ich den Unternehmen alle Ansprechpartner mit allen ihren Daten zuordnen. Da ich über Tausend Datensätze habe fällt es Flach das Ganze von Hand zu machen und wenn ich mich an den Matrixfunktionen versuche die Onkel Google vorschlägt bekomme ich nur leere Felder.

Ich häng mal ein Exempel meines Problems an falls nicht ganz klar geworden sein sollte was ich eigentlich versuche.
Tabellenblatt 1 Zeigt die leere Tabelle wie ich sie haben möchte, Blatt 2 die ID / Firma Tabelle die ich habe und Blatt 3 die den ID´s zugeordneten Ansprechpartner Daten.

Ich würde mich freuen falls irgendwem eine Lösung einfiele bei der keine Matrixfunktion notwendig ist, ansonsten wäre es nett wenn mir einer Erklären könnte was die einzelnen Elemente der Funktion aussagen da Excels Syntax ein ganz klein wenig unübersichtlich auf mich wirkt.

Grüße.

 

Hi,

ohne mir deine Mappe jetzt angeschaut zu haben - aber deine Beschreibung sieht sehr danach aus, als ob du vielleicht hier eine Lösung finden könntest: http://www.excelformeln.de/formeln.html?welcher=28

Bis später,
Karin

 

Diese Seite habe ich beim Googlen auch schon gefunden aber die Matrixfunktion macht nicht ganz was ich möchte. Ich kriege zwar die verschiedensten Fehlercodes aber egal was ich mache das Programm will mir keine Ergebnisse rausgeben.

Wie schon gesagt, ich blick nicht ganz durch die Sytax durch weswegen meine einzige Möglichkeit im Moment ist die Zeilenangaben zu ersetzen und das Läuft nicht ganz so wie es soll.
Aber danke für die Antwort.

 

Okay, hab das Problem gelöst bekommen. Hab ein kleines Makro geschrieben und dann hats funktioniert. Ich weiß nicht ob es eventuell zu speziell ist um jemand anderem weiter zu helfen aber ich hab versucht das ganze verständlich zu kommentieren.

Rem Attribute VBA_ModuleType=VBAModule
Sub Modul1
Rem Option Explicit
Rem
Rem Public Sub OrdneFirmenDieMitarbeiterZu()
Rem 'Info:
Rem '- Arbeitgeber_Mitarbeiter.xlsm, Arbeitgeber.csv, Ansprechpartner.xls müssen geöffnet sein
Rem '- Arbeitgeber_Mitarbeiter.xlsm muss sortiert sein
Rem
Rem 'Deklaration aller hier verwendeten Variablen
Rem Dim Pos_Quelle_Zeile As Double
Rem Dim Pos_Quelle_Spalte As Double
Rem Dim Pos_Ziel_Zeile As Double
Rem Dim Pos_Ziel_Spalte As Double
Rem
Rem Dim Vorname As String
Rem Dim Nachname As String
Rem Dim Mail As String
Rem Dim Telefon As String
Rem Dim Position As String
Rem Dim Anrede As String
Rem Dim Straße As String
Rem Dim PLZ As String
Rem Dim Ort As String
Rem Dim Fax As String
Rem
Rem Dim Firmen_ID As Double
Rem Dim Firmen_ID_Last As Double
Rem Dim Firmen_Name As String
Rem
Rem 'Initialisierung mit Startwerten. Zählung der Spalten fängt mit 1 an (zur Info: Zelle oben links hat position [1,1])
Rem Pos_Quelle_Zeile = 2
Rem Pos_Quelle_Spalte = 4
Rem Pos_Ziel_Zeile = 2 'Weil 1. Zeile Beschriftungen sind
Rem Pos_Ziel_Spalte = 1
Rem Firmen_Name = "Noch_Nicht_Gesetzt"
Rem Firmen_ID = -1
Rem Firmen_ID_Last = -2
Rem
Rem 'Workbooks("Arbeitgeber_Mitarbeiter.xlsm").Activate
Rem 'Workbooks("Arbeitgeber.csv").Activate
Rem 'Workbooks("Ansprechpartner.xls").Activate
Rem
Rem Workbooks("Arbeitgeber_Mitarbeiter.xlsm").Activate 'Datei in den vordergrund bringen, damit die Cells(x,y)-Methode dessen Zellen ansprechen kann
Rem While Not IsEmpty(Cells(Pos_Quelle_Zeile, Pos_Quelle_Spalte))
Rem
Rem Firmen_ID = CDbl(Cells(Pos_Quelle_Zeile, Pos_Quelle_Spalte))
Rem Vorname = Cells(Pos_Quelle_Zeile, Pos_Quelle_Spalte + 1)
Rem Nachname = Cells(Pos_Quelle_Zeile, Pos_Quelle_Spalte + 2)
Rem Mail = Cells(Pos_Quelle_Zeile, Pos_Quelle_Spalte + 3)
Rem Telefon = Cells(Pos_Quelle_Zeile, Pos_Quelle_Spalte + 5)
Rem Position = Cells(Pos_Quelle_Zeile, Pos_Quelle_Spalte + 8)
Rem Anrede = Cells(Pos_Quelle_Zeile, Pos_Quelle_Spalte + 14)
Rem Straße = Cells(Pos_Quelle_Zeile, Pos_Quelle_Spalte + 17)
Rem PLZ = Cells(Pos_Quelle_Zeile, Pos_Quelle_Spalte + 18)
Rem Ort = Cells(Pos_Quelle_Zeile, Pos_Quelle_Spalte + 20)
Rem Fax = Cells(Pos_Quelle_Zeile, Pos_Quelle_Spalte + 24)
Rem
Rem Workbooks("Arbeitgeber.csv").Activate
Rem Firmen_Name = DurchsucheSpalteVonFirmentabelleUndGibDenNamenZurueck(Firmen_ID)
Rem
Rem Workbooks("Ansprechpartner.xls").Activate
Rem
Rem If Firmen_ID <> Firmen_ID_Last Then
Rem Pos_Ziel_Spalte = 1 'spalte wieder zurück setzen
Rem Pos_Ziel_Zeile = Pos_Ziel_Zeile + 1
Rem End If
Rem
Rem Cells(Pos_Ziel_Zeile, Pos_Ziel_Spalte) = Firmen_ID
Rem Pos_Ziel_Spalte = Pos_Ziel_Spalte + 1
Rem Cells(Pos_Ziel_Zeile, Pos_Ziel_Spalte) = Firmen_Name
Rem Pos_Ziel_Spalte = Pos_Ziel_Spalte + 1
Rem Cells(Pos_Ziel_Zeile, Pos_Ziel_Spalte) = Vorname
Rem Pos_Ziel_Spalte = Pos_Ziel_Spalte + 1
Rem Cells(Pos_Ziel_Zeile, Pos_Ziel_Spalte) = Nachname
Rem Pos_Ziel_Spalte = Pos_Ziel_Spalte + 1
Rem Cells(Pos_Ziel_Zeile, Pos_Ziel_Spalte) = Mail
Rem Pos_Ziel_Spalte = Pos_Ziel_Spalte + 1
Rem Cells(Pos_Ziel_Zeile, Pos_Ziel_Spalte) = Telefon
Rem Pos_Ziel_Spalte = Pos_Ziel_Spalte + 1
Rem Cells(Pos_Ziel_Zeile, Pos_Ziel_Spalte) = Position
Rem Pos_Ziel_Spalte = Pos_Ziel_Spalte + 1
Rem Cells(Pos_Ziel_Zeile, Pos_Ziel_Spalte) = Anrede
Rem Pos_Ziel_Spalte = Pos_Ziel_Spalte + 1
Rem Cells(Pos_Ziel_Zeile, Pos_Ziel_Spalte) = Straße
Rem Pos_Ziel_Spalte = Pos_Ziel_Spalte + 1
Rem Cells(Pos_Ziel_Zeile, Pos_Ziel_Spalte) = PLZ
Rem Pos_Ziel_Spalte = Pos_Ziel_Spalte + 1
Rem Cells(Pos_Ziel_Zeile, Pos_Ziel_Spalte) = Ort
Rem Pos_Ziel_Spalte = Pos_Ziel_Spalte + 1
Rem Cells(Pos_Ziel_Zeile, Pos_Ziel_Spalte) = Fax
Rem Pos_Ziel_Spalte = Pos_Ziel_Spalte + 1
Rem
Rem
Rem Firmen_ID_Last = Firmen_ID
Rem Pos_Quelle_Zeile = Pos_Quelle_Zeile + 1
Rem Workbooks("Arbeitgeber_Mitarbeiter.xlsm").Activate
Rem Wend
Rem
Rem End Sub
Rem
Rem Public Function DurchsucheSpalteVonFirmentabelleUndGibDenNamenZurueck(ByVal Kunden_Id As Double) As String
Rem 'Info: Sucht zu einer Firmen-ID den Firmennamen heraus
Rem 'Vor dem Aufruf dieser Funktion muss die Richtige Datei im Vordergrund sein (Workbooks("Arbeitgeber.csv").Activate)
Rem
Rem 'Deklaration und Initialisierung aller hier verwendeten Variablen
Rem Dim Zeile As Double
Rem Dim Spalte_id As Double
Rem Dim Spalte_name As Double
Rem Zeile = 1
Rem Spalte_id = 1
Rem Spalte_name = 3
Rem
Rem While Not IsEmpty(Cells(Zeile, Spalte_id))
Rem If Cells(Zeile, Spalte_id) = Kunden_Id Then
Rem DurchsucheSpalteVonFirmentabelleUndGibDenNamenZurueck = Cells(Zeile, Spalte_name) 'Rückgabe
Rem Exit Function
Rem End If
Rem Zeile = Zeile + 1
Rem Wend
Rem
Rem End Function
Rem
End Sub