Wenn Wert in Spalte doppelt, dann Zeilen addieren
14.08.2019 11:00:34
Hendrik
Ich habe ein Problem, mit dem ich nicht weiterkomme.
Ziel: Die Spalte A nach Namen durchsuchen.
- Wenn ein Name mehrfach vorkommt, sollen die Einträge in dieser Zeile von Spalte C - H summiert werden.
- Am Ende soll nur ein zusammengefasster Eintrag für diesen Namen vorliegen.
Ich habe dazu mehrere Lösungen gefunden, sie funktionieren aber leider nicht bzw. ich kriege _
sie nicht für meine Bedürfnisse angepasst. Ich füge ein Beispiel hier mal mit ein, sollte es _
hilfreich sein als "Startlösung":
Public Sub NachKennzeichen()
Dim WkSh As Worksheet
Dim aTemp As Variant
Dim lZeile As Long
Dim rZelle As Range
Dim Dict As Variant
Set WkSh = ThisWorkbook.Worksheets("Tabelle1")
With WkSh ' die Fahrzeuge aus A2:Bn in einen temporären Array schreiben
aTemp = .Range("A2:H" & .Cells(.Rows.Count, 1).End(xlUp).Row)
End With
WkSh.Range("C2:H200").ClearContents ' den Bereich D2:E100 leeren/löschen
Set Dict = CreateObject("Scripting.Dictionary")
On Error Resume Next
' die Daten an das Dictionary übergeben
For lZeile = 1 To UBound(aTemp)
Dict(aTemp(lZeile, 1)) = Dict(aTemp(lZeile, 1)) + aTemp(lZeile, 2)
Next lZeile
' ausgeben
Set rZelle = WkSh.Cells(2, 4)
Application.EnableEvents = False
rZelle.Resize(Dict.Count) = WorksheetFunction.Transpose(Dict.Keys)
rZelle.Offset(0, 1).Resize(Dict.Count) = WorksheetFunction.Transpose(Dict.Items)
Application.EnableEvents = True
End Sub
Kann mir da bitte jemand helfen? :-)
Gruß!
Hendrik
Anzeige
