Zellenwerte zusammenschreiben

Liebe Leute,
gerne würde ich eine Beispieltabelle hochladen, aber das ist mir leider nicht erlaubt...
Ich habe eine Tabelle die enthält Informationen, wie z.B.:
Spalte A----Spalte B-----------Spalte C
Name--------Gültigkeit von-----Gültigkeit bis
Ball--------1------------------3
Ball--------7------------------10
Kugel-------1------------------5
Quadrat-----2------------------7
Quadrat-----7------------------10
Quadrat-----12-----------------15
So soll es aber aussehen:
Spalte A----Spalte B
Name--------Absolute Gültigkeit
Ball--------1-3, 7-10
Kugel-------1-5
Quadrat-----2-7, 7-10, 12-15
Ich erwarte bezüglich dieses düftigen Beispieles keine Komplettlösung, aber eventuell besteht Hoffnung auf einen Richtung, die mir hilft mein Problem zu lösen.
Vielen Dank also im voraus für jeglichen Hinweis.
Helmut

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub iFen() Ar = Cells(1).CurrentRegion With CreateObject("scripting.dictionary") For i = 2 To UBound(Ar) If .exists(Ar(i, 1)) Then .Item(Ar(i, 1)) = .Item(Ar(i, 1)) & ", " & Ar(i, 2) & "-" & Ar(i, 3) Else .Item(Ar(i, 1)) = Ar(i, 2) & "-" & Ar(i, 3) End If Next i Cells(5, 5).Resize(.Count, 2).NumberFormat = "@" Cells(5, 5).Resize(.Count, 2) = Application.Transpose(Array(.keys, .items)) End With End Sub

…eine singulare MatrixFml wie die folgende, Helmut:
B2[:B4]: {=VJoin(WENN(Tabelle1!A$2:A$7=A2;Tabelle1!B$2:B$7&"-"&Tabelle1!C$2:C$7;"");", ";-1)}
Die Werte in Spalte A wären dabei manuell anzulegen oder mit einer pluralen MatrixFml zu ermitteln:
A2:A4: {=DataSet(Tabelle1!A2:A7;"";;1;1)}
Hier wird davon ausgegangen, dass sich die OriginalDaten auf Blatt Tabelle1 befinden, die ErgebnisTabelle aber auf einem anderen Blatt.
Es gibt aber noch andere Möglichkeiten mit UDFs, die du analog der hiesigen und denen unter nfolgd ForumsBeitrag entwickeln könntest: https://www.herber.de/forum/messages/1588894.html
Das dort zum Schluss Angemerkte gilt auch hier. Die letztpublizierte Version von VJoin wäre 1.4, die von DataSet 1.3!
Du hast leider nicht erwähnt, wie groß das DatenVolumen ist. Bei vielen 100 Zeilen wäre eine SubProzedur wie die von Fennek wahrscheinlich bequemer (und das Ergebnis schneller erzeugt), die FmlLösung mit UDFs aber ebenfalls noch machbar und universeller, weil sie auch für ähnliche, aber nicht gleiche Fälle eingesetzt wdn könnte. Das musst du entscheiden!
Gruß, Luc :-?

Beliebteste Forumthreads (12 Monate)

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread