Hallo zusammen!

Folgendes Problem, ich möchte jene Werte in A1 aufsummieren die das gleiche Datum in in Spalte B haben

z.B.: Datum 1.1.2020 = Summe = 3+5+4+8+4+9+4 = 37

usw.

Mein Code berücksichtigt den letzten Wert 4 am 1.1.2020 nicht!

Code:

Sub addieren()

    Dim Datum1, Datum2 As Date
    Dim a, b, c, cneu As Double

    For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
      

           Datum1 = Cells(i, 2).Value
           Datum2 = Cells(i + 1, 2).Value
    
                 If Datum1 = Datum2 Then
       
                     a = a + Cells(i, 1).Value

                end if
       
     Next i

End Sub

Bitte um eure Ideen!

Danke

Lg, Christian