Ich generiere mir aus SAP eine Exceltabelle siehe Tabelle im Anhang. Die Daten sind so aufgebaut wie im Bereich (Ist Liste) Spalte A-C , diese möchte ich so darstellen wie im Bereich (Soll Liste) Spalte E-M.
Also pro Artikel eine Zeile, aber mit allen Daten zum Artikel aus der Ist Liste.
obwohl die Formel 365 Lösung ja genial ist, hier noch meine VBA Lösung
Die Überschriften hab ich (noch) nicht eingebaut
Code:
Sub Omron() Dim Z1 As Integer, SpZ As Integer, LR As Long, Zeile As Long, I As Long Dim LC As Integer, Art As String, Komp As String, Menge As Integer, Neu As Boolean
Z1 = 4 ' erste Datenzeile SpZ = 5 'Zielspalte E
With Sheets("Tabelle1") LR = .Cells(.Rows.Count, "A").End(xlUp).Row 'letzte Zeile der Spalte
For I = Z1 To LR Art = .Cells(I, 1) Komp = .Cells(I, 2) Menge = .Cells(I, 3)
If WorksheetFunction.CountIf(.Columns(SpZ), Art) = 0 Then Zeile = .Cells(.Rows.Count, SpZ).End(xlUp).Row + 1 Neu = True Else Zeile = WorksheetFunction.Match(Art, Columns(SpZ), 1) Neu = False End If
If Neu Then .Cells(Zeile, SpZ) = Art LC = .Cells(Zeile, .Columns.Count).End(xlToLeft).Column + 1 'letzte Spalte einer Zeile