Tabelle umbauen

[Saubär85]

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. 

[UweD]

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