Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

verketten wenn

Forumthread: verketten wenn

verketten wenn
22.10.2013 10:30:43
Stefan
Hallo liebe Excelianer,
hab folgendes Problem:
Spalte A
1
1
21
21
21
233
Spalte B
verschiedene Texte
Ergebnis soll so aussehen
Spalte A Spalte B
1 Text (1);Text (2)
21 Text (3) ...
233
2333
44
Habe eine Spalte A mit Nummern. In der Spalte B sind irgendwelche Texte.
Ich würde alle Nummern der Spalte A gerne Zusammenfassen uund
in Spalte B deren Texte verketten...(zusammengefasst)
Kann mir jemand sagen wie ich das am besten anstelle?
:-)
Stefan

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Hilfsspaltenlösung
22.10.2013 10:52:46
Rudi
Hallo,
ABCDEF
1NrTextHS NrTexte
21Text 1Text 1 1Text 1;Text 2
31Text 2Text 1;Text 2 3Text 7;Text 8;Text 9
43Text 7Text 7 21Text 3;Text 4;Text 5;Text 6
53Text 8Text 7;Text 8   
63Text 9Text 7;Text 8;Text 9   
721Text 3Text 3   
821Text 4Text 3;Text 4   
921Text 5Text 3;Text 4;Text 5   
1021Text 6Text 3;Text 4;Text 5;Text 6   

ZelleFormel
C2=WENN(A2=A1;C1& ";"& B2;B2)
C3=WENN(A3=A2;C2& ";"& B3;B3)
E2=MIN(A:A)
E3=KKLEINSTE(A:A;ZÄHLENWENN(A:A;"<=" & E2)+1)
F2=INDEX(C:C;VERGLEICH(E2;A:A;)+ZÄHLENWENN(A:A;E2)-1)
F3=INDEX(C:C;VERGLEICH(E3;A:A;)+ZÄHLENWENN(A:A;E3)-1)

Gruß
Rudi

Anzeige
AW: verketten wenn
22.10.2013 11:03:07
Stefan
Danke Rudi,
funktioniert super !
:-)
Stefan

VBA - Variante ...
22.10.2013 11:04:47
Matthias
Hallo
Tabelle1

 ABCDE
11Text1 1Text1;Text2
21Text2 21Text3;Text4;Text5
321Text3 233Text6
421Text4 2333Text7;Text8
521Text5 44Text9;Text10
6233Text6   
72333Text7   
82333Text8   
944Text9   
1044Text10   


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Die Datei:
https://www.herber.de/bbs/user/87743.xls
Der Code für dieses Bsp.: Option Explicit Sub VerkettenVBA() Dim a&, i& Range("E1:E5").ClearContents For i = 1 To 10 For a = 1 To 5 If Cells(i, 1) = Cells(a, 4) Then Cells(a, 5) = Cells(a, 5) & IIf(Cells(a, 5) "", ";", "") & Cells(i, 2) End If Next Next End Sub
Gruß Matthias
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige