SVERWEIS mit mehreren Ergebnissen (Ausgabe in einer Zelle)

[cfs]

Liebe Excel-Profis,

ich habe ein Problem, das ich bisher leider nicht gelöst bekommen habe.
In einer Exceltabelle stehen in Spalte C Firmennamen. Teilweise kommen Firmen mehrfach vor. In der Spalte D stehen daneben vereinzelt Namen von Mitarbeitern dieser Firmen (manchmal ist die Zelle auch leer). Ich bin auf der Suche nach einer Formel, die mir in der Spalte F die Mitarbeiternamen aller Mitarbeiter, die zur gleichen Firma gehören in einer Zelle zusammenschreiben (getrennt mit Slash). Ich versuche es mal anhand eines kurzen Beispiels zu erklären:
Spalte C      Spalte D           Spalte F
BMW           Hugo Meier      Hugo Meier / Sabine Huber
BMW           Sabine Huber   Hugo Meier / Sabine Huber
Siemens      Alfred Müller     Alfred Müller

Hat jemand eine Idee? Mit dem SVERWEIS komme ich hier leider nicht weiter, da der SVERWEIS immer nur den ersten Namen auswirft, aber nicht weitersucht.

Ich bin für jeden Hinweis dankbar.

Vielen Dank für eure Hilfe und viele Grüße
cfs

[steve1da]

Hola,

muss es zwangsläufig in einer Zelle ausgegeben werden? Ansonsten wäre nebeneinander oder untereinander völlig problemlos.

Gruß,
steve1da

[maninweb]

Hallo,

per Formel in einer Zelle geht das leider nicht. Per VBA ginge das schon, zum Beispiel über folgende Funktion.
Autor des Code bin nicht ich sondern HansV aus dem Forum Eileen's Lounge.

Code: Visual Basic

1. Function ConcatenateIf(CriteriaRange As Range, Condition As Variant, _
2.         ConcatenateRange As Range, Optional Separator As String = ",") As Variant
3.     Dim i As Long
4.     Dim strResult As String
5.     On Error GoTo ErrHandler
6.     If CriteriaRange.Count <> ConcatenateRange.Count Then
7.         ConcatenateIf = CVErr(xlErrRef)
8.         Exit Function
9.     End If
10.     For i = 1 To CriteriaRange.Count
11.         If CriteriaRange.Cells(i).Value = Condition Then
12.             strResult = strResult & Separator & ConcatenateRange.Cells(i).Value
13.         End If
14.     Next i
15.     If strResult <> "" Then
16.         strResult = Mid(strResult, Len(Separator) + 1)
17.     End If
18.     ConcatenateIf = strResult
19.     Exit Function
20. ErrHandler:
21.     ConcatenateIf = CVErr(xlErrValue)
22. End Function

Den Code in ein Standardmodul einfügen und z.B. als Formel wie folgt verwenden, wenn die Daten ab C1 und E1 beginnen.

F1=ConcatenateIf($C$1:$C$3;"BMW";$D$1:$D$3;"/")

Gruß

[cfs]

Hallöchen,

vielen Dank schonmal für die schnellen Rückmeldungen.

Es würde mir zur Not auch helfen, wenn die Ergebnisse erstmal nebeneinander ausgeworfen werden, dann könnte ich wiederrum mittels Formel die Werte zusammenziehen. Ich würde die Sache unbedingt gerne ohne VBA lösen. Mit wäre auch jedes andere Mittel recht (Hilfsspalten etc.).

Viele Grüße
cfs

[steve1da]

Hola,

so könnte das aussehen.

Gruß,
steve1da

[cfs]

Liebe/r steve1da,

prima! Ganz lieben Dank für die schnelle Hilfe. Das bringt mich in jedem Fall schonmal weiter mit meinem Projekt.

Viele Grüße
cfs