Variable Anzahl an Daten in eine zelle

Hallo,
ich habe folgendes Problem:
Möchte aus einem sheet daten auslesen. Aufbau ist folgender:
Spalte A: Sozialversicherungsnummer
Spalte B: Nachname
Spalte C: Vorname
Spalte D: Belegnummer
Auf einem zweiten sheet soll eine "summary" generiert werden, das etwa so aussehen soll:
Spalte A: Sozialverischerungsnummer
Spalte B: Nachname
Spalte C: Belegnummer
Hier sollen in der in einer zelle der spalte c alle Belegnummern, die zu einer solzialversicherungsnummer gehören (sprich von einer Person sind) nebeneinander u mit semikolon getrennt ausgewiesen werden. Die Anzahl der Belegnummern zu einer Person ist variabel. Mit "vlookup" kann ich ja immer nur den ersten treffer finden.
Die sache sollte möglichst ohne vba-programmierung auskommen, gibt es eine formelmäßige lösung!?
Bin für jeden tip dankbar!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Niki,
tut mir leid, ich hatte Dir einen falschen Tip gegeben, http://www.excelformeln.de/formeln.html?welcher=194 wäre besser gewesen.
So gehts mit minimalen VBA- Aufwand.

Tabelle1

	A	B	C	D	E	F
1	Name1	x	a	Name1	x	a,d,g,i
2	Name2	y	b	Name2	y	b,e,k
3	Name3	z	c	Name3	z	c,f,h
4	Name1	x	d
5	Name2	y	e
6	Name3	z	f
7	Name1	x	g
8	Name3	z	h
9	Name1	x	i
10	Name2	y	k

Formeln der Tabelle

D1 : {=WENN(SUMME(WENN(A$1:A$100="";0;1/ZÄHLENWENN(A$1:A$100;A$1:A$100))) < ZEILE();"";INDIREKT("A"&KKLEINSTE(WENN(ZÄHLENWENN(BEREICH.VERSCHIEBEN(A$1;;;ZEILE($1:$100));A$1:A$100)=1;ZEILE($1:$100));ZEILE(A1))))}
E1 : =WENN(ZÄHLENWENN($A:$A;D1)>0;INDEX($A:$C;VERGLEICH($D1;$A:$A;0);2);"")
F1 : =WENN(ZÄHLENWENN($A:$A;D1)>0;verweisverketten(A1:A100;D1;C1:C100);"")
D2 : {=WENN(SUMME(WENN(A$1:A$100="";0;1/ZÄHLENWENN(A$1:A$100;A$1:A$100))) < ZEILE();"";INDIREKT("A"&KKLEINSTE(WENN(ZÄHLENWENN(BEREICH.VERSCHIEBEN(A$1;;;ZEILE($1:$100));A$1:A$100)=1;ZEILE($1:$100));ZEILE(A2))))}
E2 : =WENN(ZÄHLENWENN($A:$A;D2)>0;INDEX($A:$C;VERGLEICH($D2;$A:$A;0);2);"")
F2 : =WENN(ZÄHLENWENN($A:$A;D2)>0;verweisverketten(A2:A101;D2;C2:C101);"")
D3 : {=WENN(SUMME(WENN(A$1:A$100="";0;1/ZÄHLENWENN(A$1:A$100;A$1:A$100))) < ZEILE();"";INDIREKT("A"&KKLEINSTE(WENN(ZÄHLENWENN(BEREICH.VERSCHIEBEN(A$1;;;ZEILE($1:$100));A$1:A$100)=1;ZEILE($1:$100));ZEILE(A3))))}
E3 : =WENN(ZÄHLENWENN($A:$A;D3)>0;INDEX($A:$C;VERGLEICH($D3;$A:$A;0);2);"")
F3 : =WENN(ZÄHLENWENN($A:$A;D3)>0;verweisverketten(A3:A102;D3;C3:C102);"")
D4 : {=WENN(SUMME(WENN(A$1:A$100="";0;1/ZÄHLENWENN(A$1:A$100;A$1:A$100))) < ZEILE();"";INDIREKT("A"&KKLEINSTE(WENN(ZÄHLENWENN(BEREICH.VERSCHIEBEN(A$1;;;ZEILE($1:$100));A$1:A$100)=1;ZEILE($1:$100));ZEILE(A4))))}
E4 : =WENN(ZÄHLENWENN($A:$A;D4)>0;INDEX($A:$C;VERGLEICH($D4;$A:$A;0);2);"")
F4 : =WENN(ZÄHLENWENN($A:$A;D4)>0;verweisverketten(A4:A103;D4;C4:C103);"")
Enthält Matrixformel:
Umrandende { } nicht miteingeben,
sondern Formel mit STRG+SHIFT+RETURN abschließen!

Diagramm - Grafik - Excel Tabellen einfach im Web darstellen Excel Jeanie HTML 3.0 Download
Die Verweisverketten- Funktion kommt in ein allgemeines Modul:
Public Function VerweisVerketten(WoSuchen As Range, WasSuchen As Range, WoFinden As Range) As String VerweisVerketten = Left(Join(Evaluate("=transpose(if(" & WoSuchen.Address & "=" & WasSuchen.Address & "," & WoFinden.Address & "&"","",""""))"), ""), Len(Join(Evaluate("=transpose(if(" & WoSuchen.Address & "=" & WasSuchen.Address & "," & WoFinden.Address & "&"","",""""))"), "")) - 1) End Function
Die Formel in Spalte E entspricht der SVERWEIS- Formel.
Gruß- Micha
PS: Rückmeldung wäre nett.

Beliebteste Forumthreads (12 Monate)

Variable Anzahl an Daten in eine zelle

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Variable Anzahl an Daten in eine zelle

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread