Hallo,
folgendes Problem bei dem ich nicht mehr weiterkomme und hoffe jemand kann mir helfen.
4 Spalten:
Name/Anzahl/ID/GesamtID
Name:(Spalte1)
Maier
Maier
Maier
Jürgens
Jürgens
Hofer
Bach
Bach
Bach
Anzahl: (Spalte2)
3
(leer)
(leer)
2
(leer)
1
3
(leer)
(leer)
ID: (Spalte3)
3
3
5
1
5
1
3
4
3
GesamtID: (Spalte4)
3(2),5(1)
(leer)
(leer)
1(1),5(1)
(leer)
1(1)
3(2),4(1)
Problem: Wie kann ich mithilfe von VBA den Inhalt von Spalte4 (GesamtID) darstellen (Spalten1-3) sind bekannt.
Mein Ansatz:

Dim objDic As Object
'Idee: Nimm Wert aus Spalte 2 und gehe in Spalte 3 diesen Wert +1 nach unten und fasse ab aktueller Zeile diese Werte zusammen. Danach schreibe in Spalte 4 Ergebnis
With Worksheets("Namensliste")
LetzteZeile = .Cells(Rows.Count, 2).End(xlUp).Row
For Each zelle1 In .Range("B2:B" & LetzteZeile)
If Not IsEmpty(zelle1) Then
Set objDic = CreateObject("scripting.dictionary")
Anzahl = zelle1.Value
Set Bereich = Range("D2:D" & Anzahl + 1)
objDic(Bereich) = objDic(Bereich) + 1
For Each Bereich In objDic
MsgBox Bereich, objDic(Bereich) 'erstmal Ausgabe ob Werte zusammengezählt werden
Next
' aufräumen, alle Einträge löschen und Objekt freigeben
objDic.RemoveAll
Set objDic = Nothing
End If

Würde mich sehr über Hilfe freuen!