- | 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 |