Clever-Excel-Forum

Seiten: 1 2

@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.

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.

[attachment=21298]

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!

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

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

Seiten: 1 2

MisterBurns

Statistik

MisterBurns

Gast 123