Mehrere Zeilen teilweise zusammenfuehren

Servus zusmmen,
ich habe ein Listenproblem. Eine Download liste hat mehrere fast gleiche Eintraege (Name, Email,...) aber verschiedene Artikel.
Wie kann ich nun eine Liste erstellen welche mir auflistet wer welche Artikel bekommen hat ?
Ein Auszug habe ich hier:

Die Datei https://www.herber.de/bbs/user/17878.xls wurde aus Datenschutzgründen gelöscht

Noch mal als Text :
Bernhard, email1@mail.de, Datei 1
Bernhard, email1@mail.de, Datei 2
Stefan, email2@mail.de, Datei 1
Klaus, email3@mail.de, Datei 1
Klaus, email3@mail.de, Datei 3
Klaus, email3@mail.de, Datei 5
Als Ergebnis soll herauskommen:
Bernhard, email1@mail.de, Datei 1-Datei 2
Stefan, email2@mail.de, Datei 1
Klaus, email3@mail.de, Datei 1 - Datei 3 - Datei 5
Hat jemand eine Idee hierzu.
Vielen Dank
Bernhard Stillger

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Servus Reinhard,
am besten pro Email die Liste bilden. Das ist eindeutiger als der Name - vermute ich.
Die Liste hat ca. 5600 Zeilen/Eintraege.
Also waere anhande des XLS die Liste wie folgt (Reihenfolge beliebig):
leeroy ting leemingbodey@yahoo.com.hk for Windows
None None 1@tin.com for Windows, PDF in English, Readme in English
jack li 123@pchome.com ja for Windows
Dai esminguo 20108009@sitna.com Ruf an for Windows - for Windows
qwerwer qerqwrf2r 332224@fadf.com for Windows - for Windows - PDF in English quick reference in English - Release and Installation Notes in English - Release and Installation Notes in English
Ana Castresellas a.casellas@restuform.es for Sgi IRIX - for Sgi IRIX - for Windows - for Windows PDF in English
Wobei auffaellt, das einige Eintraege doppelt sind. Kann man die ggf. herausfiltern ? Entweder gleich mit oder nachtraeglich ?
Danke fuer deine Hilfe
Bernhard Stillger

Sub ZeilenInSpalten() Application.ScreenUpdating = False letzte = Range("F65536").End(xlUp).Row For n = letzte To 3 Step -1 If Cells(n, 6) = Cells(n - 1, 6) And Cells(n, 4) = Cells(n - 1, 4) Then Rows(n).Delete Next n letzte = Range("F65536").End(xlUp).Row For n = letzte To 3 Step -1 While Cells(n, 4) = Cells(n - 1, 4) Cells(n - 1, 6) = Cells(n - 1, 6) & " ," & Cells(n, 6) Rows(n).Delete n = n - 1 Wend Next n Application.ScreenUpdating = True End Sub

Beliebteste Forumthreads (12 Monate)

Mehrere Zeilen teilweise zusammenfuehren

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Mehrere Zeilen teilweise zusammenfuehren

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

302 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread