Clever-Excel-Forum

Moin Ihr Excelperten!

Die Vorweihnachtszeit beginnt und das Unternehmen für das ich arbeite bietet über den eigenen Shopify-Webshop sogenannte Festtagsboxen an. Die Kunden können zwischen verschiedenen Speisen und Getränken wählen und online als Box zum Abholen für z.B. Heiligabend vorbestellen.

Ich habe die Aufgabe bekommen, die Bestellungen zu exportieren und für die Küchenmitarbeiter sinnvoll nutzbar zu machen. Anbei habe ich die anonymisierte Bestelltabelle aus dem letzten Jahr. Der Export ist im .csv Format, welches ich per Datenabruf in eine Exceltabelle importiere. Nun mein Ziel:

Ich möchte die Tabelle so auswerten, dass ich für jede Bestellung eine Gesamtübersicht bekomme. Wenn man den Entenbraten, Dessert und eine Flasche Wein bestellt, landet jeder Artikel in einer eigenen Zeile. Perfekt wäre, wenn diese jeweils zusammengefasst in einem Tabellenblatt je Kunde / Bestellnummer landen würden.

Habt ihr einen Ansatz, wie ich das über VBA oder Excelformeln bewerkstelligen kann?

Vielen Dank im Voraus für Eure Zeit. Heart

LG Dennis

HAllo

versuch mal

Code:
Sub Bestellung()

    Dim TB1 As Worksheet, TB2 As Worksheet, Arr(), i As Long

    Set TB1 = Sheets("Tabelle1")

    Arr = Application.Transpose(Application.Unique(TB1.Columns(1)))

    For i = 2 To UBound(Arr)

        Sheets.Add after:=Sheets(Sheets.Count)

        Set TB2 = ActiveSheet

        With TB2

            'benennen

            .Name = Arr(i)

            'Überschrift kopieren

            TB1.Rows(1).Copy .Rows(1)

            'Formel einfügen

            .Cells(2, 1).Formula2R1C1 = "=FILTER(" & TB1.Name & "!C:C[74]," & TB1.Name & "!C=""" & .Name & """)"

            'Formel in Werte

            .UsedRange.Value = .UsedRange.Value

        End With

    Next

End Sub

LG UweD

Dennis_

UweD