Mehrfachergebnisse

[niels1983]

Hallo Excel-Forum,

ich benötige eine Funktion um Mehrfachergebnisse anzeigen zu können und hoffe meine Beschreibung ist ausreichend genug!? :D

Hintergrund: Eine Liste von Gemeindedaten in Deutschland ist nach Gemeindekreisschlüsseln sortiert. Zum Beispiel hat Flensburg den Kreisschlüssel "1001". Diese Liste würde ich gerne  durch die entsprechenden Postleitzahlen ergänzen. 

Problem: Jeder Kreis hat einen Gemeindekreisschlüssel, jedoch mehrere Postleitzahlen. Mit anderen Worten: Es gibt in Deutschland ca. 400 Gemeindekreisschlüssel und 14957 Postleitzahlen. 

Aufgabe: Die Liste für die ca. 400 Kreise würde ich gerne mit einer Spalte ergänzen, in welcher die dazugehörigen Postleitzahlen möglichst in einem Feld angezeigt werden.

Ausgangssituation: Es gibt ein extra Tabellenblatt in welcher die Postleitzahlen mit dem entsprechenden Gemeindekreisschlüssel aufgeführt sind (siehe Anhang). 

Ich hoffe ihr habt eine Idee für mich und freue mich über jede Anregung.

Viele Grüße

[steve1da]

Hola,

möglichst in einem Feld

warum? Excel hat so viele Zellen.

Gruß,
steve1da

[Fennek]

gelöscht

[Fennek]

Hallo,

wenn man Zwangsbeitragzahler nach einem Gefallen bittet:

Code:

Sub T_1()
With CreateObject("Scripting.Dictionary")
    For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
        .Item(Cells(i, 1).Value) = .Item(Cells(i, 1).Value) & "|" & Cells(i, 2)
    Next i
    Cells(1, 4).Resize(.Count, 2) = Application.Transpose(Array(.keys, .Items))
End With
End Sub

Der Code ist getestet und mit einem SVerweis erhälst du das gewünschte Ergebnis.

mfg

[niels1983]

Hallo Fennek,

vielen Dank. Aber wie genau muss ich den Code in dem SVERWEIS einbinden?

BG

Niels

[schauan]

Hallo Fennek,

bei mir lassen sich mit den Beispieldaten die items nicht transpoieren Typkonflikt, Fehler 13

[Fennek]

Hallo,

hier die Datei.

mfg

[schauan]

Hallöchen,

danke erst mal. Gibt mir leider auch die 13. Muss ich morgen mal in 2016 probieren, hab heute nur 2010

[niels1983]

Vielen Vielen Dank für die Lösung,

Du hast mir sehr geholfen :18: :19:

Beste Grüße