Clever-Excel-Forum

Hallo zusammen,

Gibt es eine Möglichkeit die Tabelle im Anhang mittels Formeln umzubauen?

- Also pro Order Id eine Artikelspalte
- Sepatate Spalte für Preis, FBAFee und Commission
- Principal und Tax werden zu Preis addiert

Bei Fragen gerne melden. Ich hoffe man kann nachvollziehen, worauf ich hinaus möchte.

Hallo

per VBA:

in ein normales Modul

Code:
Sub Saubär()

    Dim TB1 As Worksheet, TB2 As Worksheet, LR As Long, i As Long, Z As Long, Tax As Double

    Set TB1 = Sheets("Tabelle1")

    Set TB2 = Sheets("Tabelle2")

    Tax = 1.19

    'Reset

    TB2.UsedRange.Offset(1).ClearContents

    Z = 2

    With TB1

        LR = .Cells(.Rows.Count, "A").End(xlUp).Row 'letzte Zeile der Spalte

        For i = 2 To LR

            TB2.Cells(Z, 1).Resize(4, 2).Value = .Cells(i, 1).Resize(1, 2).Value

            TB2.Cells(Z, 1).Offset(0, 2).Resize(4, 1).Value = .Cells(i, 1).Offset(0, 2).Value

            TB2.Cells(Z, 1).Offset(0, 3) = .Cells(i, 1).Offset(0, 3) / Tax

            TB2.Cells(Z, 1).Offset(0, 4) = "Principal"

            TB2.Cells(Z, 1).Offset(1, 3) = .Cells(i, 1).Offset(0, 3) - TB2.Cells(Z, 1).Offset(0, 3)

            TB2.Cells(Z, 1).Offset(1, 4) = "Tax"

            TB2.Cells(Z, 1).Offset(2, 3) = .Cells(i, 1).Offset(0, 4)

            TB2.Cells(Z, 1).Offset(2, 4) = "FBAPerUnitFulfillmentFee"

            TB2.Cells(Z, 1).Offset(3, 3) = .Cells(i, 1).Offset(0, 5)

            TB2.Cells(Z, 1).Offset(3, 4) = "Commission"

            Z = Z + 4

        Next

    End With

End Sub

Die Überschriften und die Spaltenformatierung einmal von Hand vornehmen

LG UweD

Saubär85

UweD