Auswertung

A       B
500011
500022	0
500033	0

A       B
500011	10
500011	15
500011	10
500022	4
500033	6
500011	5
500022	6
500022	1
500022	2
500022	4
500033	1
500033	1
500033	1

Option Explicit
Private Sub workbook_open()
Dim i As Long, _
d As Long
Dim c As String
For i = 1 To Sheets("Tabelle1").Cells(Sheets("Tabelle1").Rows.Count, 1).End(xlUp).Row
For d = 1 To Sheets("Tabelle2").Cells(Sheets("Tabelle2").Rows.Count, 1).End(xlUp).Row
If Sheets("Tabelle1").Cells(i, 1) Is Sheets("Tabelle2").Cells(d, 1) Then
c = c + Sheets("Tabelle2").Cells(d, 2)
End If
Next d
Sheets("Tabelle1").Cells(i, 2).Value = c
c = 0
Next i
End Sub