ich habe eine Tabelle mit Dublikaten (seriennummern). da aber in manchen spalten trotzdem unterschiedliche einträge sind, möchte ich die dublikate nicht löschen sondern in einer zeile zusammenfassen. dazu wollte ich die zellinhalte in eine Zelle als mehrzeiler zusammenfügen.
folgenden code habe ich bisher geschrieben:
letztespalte = Sheets(a).Cells(1, 256).End(xlToLeft).Column
For h = Sheets(a).Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
If Sheets(a).Cells(h, 1) = Sheets(a).Cells(h - 1, 1) Then
For j = 2 To letztespalte
Sheets(a).Cells(h - 1, j) = Sheets(a).Cells(h, j) & Chr(10) & Sheets(a).Cells(h -1, _
j)
Next
Sheets(a).Rows(h).Delete
End If
Next
ich würde jetzt gerne noch einbauen, dass gleiche eintäge nicht zusammengefügt werden. hat hier jmd eine idee?
In der Beispieldatei ist das ganze mal als Vorher/Nachher zu sehen. Es soll aber im gleichen Blatt ablaufen. Also nicht ein neues blatt generieren.
Die Datei https://www.herber.de/bbs/user/93846.xlsm wurde aus Datenschutzgründen gelöscht