AW: per Formel, fällt mir nichts ein...
15.06.2008 17:49:07
ransi
HAllo
Geht auch per Formel, wird aber wahrscheinlich eine Mördermatrixformel.
Schau mal ob du dich mit einem kleinem Makro anfreunden kannst:
Das sind deine Daten:
Tabelle2
| | A | B | C |
| 1 | DATUM | Artikel | Preis |
| 2 | 18.06.2008 | Artikel 2 | 50 |
| 3 | 10.06.2008 | Artikel 0 | 21 |
| 4 | 11.06.2008 | Artikel 2 | 8 |
| 5 | 10.06.2008 | Artikel 0 | 91 |
| 6 | 16.06.2008 | Artikel 1 | 78 |
| 7 | 12.06.2008 | Artikel 0 | 10 |
| 8 | 17.06.2008 | Artikel 1 | 50 |
| 9 | 10.06.2008 | Artikel 2 | 59 |
| 10 | 13.06.2008 | Artikel 1 | 20 |
| 11 | 14.06.2008 | Artikel 1 | 69 |
| 12 | 16.06.2008 | Artikel 1 | 49 |
| 13 | 17.06.2008 | Artikel 0 | 70 |
| 14 | 20.06.2008 | Artikel 0 | 87 |
| 15 | 20.06.2008 | Artikel 0 | 97 |
| 16 | 20.06.2008 | Artikel 0 | 4 |
| 17 | 11.06.2008 | Artikel 1 | 10 |
| 18 | 10.06.2008 | Artikel 2 | 73 |
| 19 | 12.06.2008 | Artikel 0 | 42 |
| 20 | 16.06.2008 | Artikel 2 | 81 |
| 21 | 19.06.2008 | Artikel 0 | 66 |
| 22 | 16.06.2008 | Artikel 1 | 79 |
| 23 | 10.06.2008 | Artikel 2 | 36 |
| 24 | 12.06.2008 | Artikel 2 | 95 |
| 25 | 11.06.2008 | Artikel 1 | 71 |
| 26 | 10.06.2008 | Artikel 2 | 55 |
| 27 | 18.06.2008 | Artikel 1 | 55 |
| 28 | 20.06.2008 | Artikel 2 | 17 |
| 29 | 15.06.2008 | Artikel 2 | 88 |
| 30 | 17.06.2008 | Artikel 1 | 75 |
| 31 | 20.06.2008 | Artikel 0 | 13 |
| 32 | | | |
Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Und jetzt diesen Code:
' **********************************************************************
' Modul: Tabelle2 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************
Option Explicit
Public Sub test()
Dim Arr
Dim objDic As Object
Dim L As Long
Dim K 'as Key
Arr = Intersect(Range("A2").CurrentRegion, Range("A2").CurrentRegion.Offset(1, 0))
Set objDic = CreateObject("Scripting.dictionary")
'Einlesen und summieren
For L = 1 To UBound(Arr)
objDic(Arr(L, 1) & vbTab & Arr(L, 2)) = objDic(Arr(L, 1) & vbTab & Arr(L, 2)) + Arr(L, 3)
Next
K = objDic.keys
'Ausgeben
Range("E1:G1").Value = Range("a1:C1").Value
For L = 1 To objDic.Count
Cells(L + 1, 5) = Split(K(L - 1), vbTab)(0)
Cells(L + 1, 6) = Split(K(L - 1), vbTab)(1)
Next
Cells(2, 7).Resize(objDic.Count) = WorksheetFunction.Transpose(objDic.items)
End Sub
ransi
