Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1332to1336
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

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

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige