|
Hallo Hermann
Mit deinen Kenntnissen ,gehe ich davon aus ,das du das Makro schnell verstehst und anpassen kannst!
Beispiel
Worksheets 1 Spalte A Namen/Nummern
Worksheets 2 Spalte A Namen/Nummern
Worksheets 2 Spalte B Werte
Ausgabe
Worksheets 1 Spalte B Addierte Werte
Sub AddSum()
Dim DeinArr As Variant
Dim Zindex As Long
DeinArr = Worksheets(1).Range("A2:B" & Worksheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row)
For Zindex = 1 To UBound(DeinArr)
Worksheets(2).Range("A1").AutoFilter Field:=1, Criteria1:=DeinArr(Zindex, 1)
DeinArr(Zindex, 2) = Application.WorksheetFunction.Sum(Worksheets(2).Range("B2:B" & Worksheets(2).UsedRange.SpecialCells(xlCellTypeLastCell).Row).SpecialCells(xlCellTypeVisible))
Worksheets(2).Range("A1").AutoFilter
Next Zindex
Worksheets(1).Range("A2:B" & Worksheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row) = DeinArr
End Sub
Viel spass damit!
Gruß Michael
|