Clever-Excel-Forum

Hallo Zusammen,

ich habe eine Datei erhalten mit mehreren Charge für einen Artikel. Die Chargen Stehen untereinander und somit habe ich 34000 Datensätze.
Ich benötige aber von einem Artikel nur die ersten 4 Chargen und das diese nicht unter einander stehen , sondern nebeneinander.
Gibt es da eine Formel wie man das Lösen kann? Manuel dies zumachen dauert sehr lange :)....
Siehe Bild.

Vielen Dank.

Hallo,

Falls es immer mehr als 4 Chargen für eine Artikelnummer gibt, könnte dieser Code helfen.

Annahmen: Artikel-Nr. in Spalte A, Charge in Spalte C:

Code:
Sub Charge()

lr = Cells(Rows.Count, "A").End(xlUp).Row

Anf = Cells(1, 1)

For i = 2 To lr

If Cells(i, "A") <> Anf Then

    Cells(i, "C").Resize(, 4) = WorksheetFunction.Transpose(Range(Cells(i, "C"), Cells(i + 4, "C")))

    Anf = Cells(i, "A")

End If

Next i

End Sub

mfg

Vielen Dank :).

r.streck

Fennek

r.streck