Zellen zusammenführen

[MisterBurns]

@Marcus: Ich habe jetzt einfach mal gemutmaßt, dass Jörg auf eine PQ-Lösung hinauswollte, die ja erst ab einer gewissen Excelversion verfügbar ist.
Das mit "Excel 2017" habe ich überhaupt nicht gesehen.

[Statistik]

Hallo zusammen,

ich bin überwältigt von der schnellen Hilfsbereitschaft , vielen Dank und habe einen Beispieldatensatz erstellt, um mein Anliegen etwas verständlicher zu präsentieren.

Ich verwende Excel 2010.


  beispiel.xlsx (Größe: 15,09 KB / Downloads: 7)

Es handelt sich um 5000 Zeilen in der kompletten Mappe.

Mein Anliegen konnte ich bisher nur mit der Verkettung bewerkstelligen, aber ich hoffe es kann noch einfacher gehen und bin auf eure Hilfe angewiesen. 

Beste Grüße!

[MisterBurns]

Code:

Sub verketten()
Dim i As Long, last As Long

Application.ScreenUpdating = False

With Sheets("ARAS neu")
   last = .Cells(.Rows.Count, 1).End(xlUp).Row
   Range("F2:F" & last).Copy Destination:=Range("AC2")
   
   For i = last To 2 Step -1
       If .Cells(i, "E") = .Cells(i - 1, "E") Then
           .Cells(i - 1, "AC") = .Cells(i - 1, "AC") & " | " & .Cells(i, "AC")
           .Cells(i, "AC").ClearContents
       End If
   Next i
   
   For i = 2 To last
       If .Cells(i, "AC") <> "" Then
           .Cells(i, "AC") = .Cells(i, "E") & "  " & .Cells(i, "AC")
       End If
   Next i
End With

Application.ScreenUpdating = True

End Sub

[Gast 123]

Hallo

anbei eine Beispieldatei mit Makro Lösung.  Bitte mal die Originaldaten hinein kopieren und den Button drücken.
Bei 5.000 Daten weiss ich nicht wie lange es dauert, dürfte aber im Sekundenbereich liegen.

mfg  Gast 123