| - | A | B | C | D | E |
|---|---|---|---|---|---|
| 1 | Bezeichnung | Menge | Wert EUR | Kosten | Marge % |
| 2 | Kunde A | 500 | 229,9 | 17,4 | 92,43 |
| 3 | Produkt A | ||||
| 4 | Kunde B | 0 | 0 | 0 | 0 |
| 5 | Produkt B | ||||
| 6 | Kunde C | 7.070 | 1.498,13 | 626,4 | 58,19 |
| 7 | Kunde D | 3.000 | 408 | 265,8 | 34,85 |
| 8 | Produkt C | ||||
| 9 | Kunde E | 2.000 | 1.017,80 | 554,2 | 45,55 |
| 10 | Produkt D |
Sub umsortieren()
Dim i As Long
Dim z As Long
Dim Prod As String
z = 1
For i = Cells(Rows.Count, "A").End(xlUp).Row To 2 Step -1
If Cells(i, 2) = "" Then 'Produkt
Prod = Cells(i, 1)
Else
Sheets(2).Cells(z, 1) = Prod
Range("A" & i & ":E" & i).Copy Sheets(2).Cells(z, 2)
z = z + 1
End If
Next i
End Sub| - | A | B | C | D | E | F |
|---|---|---|---|---|---|---|
| 1 | Produkt D | Kunde E | 2.000 | 1.017,80 | 554,2 | 45,55 |
| 2 | Produkt C | Kunde D | 3.000 | 408 | 265,8 | 34,85 |
| 3 | Produkt C | Kunde C | 7.070 | 1.498,13 | 626,4 | 58,19 |
| 4 | Produkt B | Kunde B | 0 | 0 | 0 | 0 |
| 5 | Produkt A | Kunde A | 500 | 229,9 | 17,4 | 92,43 |