Chargennummer in Spalte aufteilen

[r.streck]

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.

[Fennek]

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

[r.streck]

Vielen Dank :).