Hi,
ich habe folgenden Code (von hier) um sowas wie eine Summery zu programmieren. Also, der Code schaut im Blatt "Daten" in der Spalte AC nach der Kategorie, fasst die doppleten oder mehrfach vorkommenden zusammen und addiert dementsprechend die Preise (AA) zu einem Gesamtpreis pro Kategorie.
Soweit so gut. Das Problem:
Wenn es mal vorkommt, das in der Spalte AA in einer Zelle kein Betrag drin ist (also leer) kommt es zur Fehlermeldung. Frage, wie überspringe ich beim addieren, die leeren Zellen ?
Danke
Mandy
Dim liBlatt As Integer, lboNotOK As Boolean
For liBlatt = 1 To ThisWorkbook.Sheets.Count
If LCase(Sheets(liBlatt).Name) = "Daten" Then
lboNotOK = False
Exit For
Else
lboNotOK = True
End If
Next
If lboNotOK = True Then Exit Sub
Dim arr
Dim MyDicAA
Dim MyDicBB
Dim L As Long
arr = Sheets("Daten").Range("AA10:AC2222")
Set MyDicAA = CreateObject("Scripting.Dictionary")
Set MyDicBB = CreateObject("Scripting.Dictionary")
For L = 1 To UBound(arr)
MyDicAA(arr(L, 3)) = MyDicAA(arr(L, 3)) + arr(L, 1)
MyDicBB(arr(L, 3)) = MyDicBB(arr(L, 3)) + arr(L, 1)
Next
With Sheets("Summery")
.Range("A8").Resize(MyDicAA.Count) = WorksheetFunction.Transpose(MyDicAA.keys)
.Range("C8").Resize(MyDicAA.Count) = WorksheetFunction.Transpose(MyDicAA.items)
End With