@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.
10.12.2018, 18:55 (Dieser Beitrag wurde zuletzt bearbeitet: 10.12.2018, 19:00 von 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.
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
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.