Office: Wert mehrere Verweise zuordnen

Helfe beim Thema Wert mehrere Verweise zuordnen in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Guten Tag zusammen, ich steh im Moment vor einem Problem bei dem ich ums verecken nicht weiterkomme. Ich habe zwei verschiedene Tabellen aus der... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von godisalie, 29. Januar 2015.

  1. godisalie Neuer User

    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.
     
    godisalie, 29. Januar 2015
    #1
  2. Beverly
    Beverly Erfahrener User
    Beverly, 29. Januar 2015
    #2
  3. godisalie Neuer User
    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.
     
    godisalie, 29. Januar 2015
    #3
  4. godisalie Neuer User

    Wert mehrere Verweise zuordnen

    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
     
    godisalie, 2. Februar 2015
    #4
Thema:

Wert mehrere Verweise zuordnen

Die Seite wird geladen...
  1. Wert mehrere Verweise zuordnen - Similar Threads - Wert Verweise zuordnen

  2. Werte aktualisieren Bezug Verweis

    in Microsoft Excel Hilfe
    Werte aktualisieren Bezug Verweis: Hallo und guten Abend, ich baue gerade eine Arbeitsmappe (siehe Beispiel-Datei) in der mein Aktiendepot verwaltet werden soll. Diese besteht aus mehreren Arbeitsblättern, davon eins als Übersicht...
  3. Excel S-Verweis Wert finden

    in Microsoft Excel Hilfe
    Excel S-Verweis Wert finden: Hallo, ich habe in einer Exceldatei zwei Tabellen. In Tabelle 1 steht in F2 der Wert 12345 In Tabelle 2 steht der Wert 12345 irgendwo in Spalte G Nun benötige ich von dieser Zeile in Tabelle 2...
  4. Werte zuweisen (Matrix, S-Verweis) in Excel 2019?

    in Microsoft Excel Hilfe
    Werte zuweisen (Matrix, S-Verweis) in Excel 2019?: Liebe Excel-Gemeinde, ich habe ein Problem(chen), welches ich leider nicht alleine in den Griff bekomme. Vermutlich ist die Lösung ganz einfach. Was möchte ich? Um mein Problem etwas zu...
  5. Abfrage mit Werten und Verweisen

    in Microsoft Access Hilfe
    Abfrage mit Werten und Verweisen: Hallo Forum! Ich habe eine Tabelle angelegt, die in eine Textfeld "FAKTOR" entweder eine Zahl (z. B. 4) oder einen Verweis auf eine andere Tabelle aufnehmen soll (z. B: "SELECT zahl_1 FROM...
  6. Werte aus Arbeitsblatt auslesen

    in Microsoft Excel Hilfe
    Werte aus Arbeitsblatt auslesen: Guten Tag, alles Mögliche schon versucht - leider ohne zufriedenstellendes Resultat. Ein passendes Thema habe ich auch nicht gefunden. Wüsste jetzt aber auch nicht, nach was ich genau suchen...
  7. Mehrere Ergebnisse zu einem Suchkriterium ausgeben mit Verweis

    in Microsoft Excel Hilfe
    Mehrere Ergebnisse zu einem Suchkriterium ausgeben mit Verweis: Hallo zusammen, ich habe ein Problem, welches ich leider trotz viel Recherche nicht lösen konnte. Ich habe eine Excelliste, womit die Datenkontrolle durchgeführt werden soll und ggf. sollen...
  8. Verweis in einer Spalte suchen, Wert aus einer anderen Spalte gleiche Zeile einsetzen

    in Microsoft Excel Hilfe
    Verweis in einer Spalte suchen, Wert aus einer anderen Spalte gleiche Zeile einsetzen: Hallo und Guten Abend. War etwas schwierig für mein Problem eine passende Überschrift zu finden, hoffe ich hab es einigermaßen gut getroffen. Und auch die Suchfunktion war nicht hilfreich, daher...
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden