Microsoft Excel

Herbers Excel/VBA-Archiv

Zusammenfassen

Betrifft: Zusammenfassen von: Reto
Geschrieben am: 28.08.2014 11:17:25

Hallo,
ich möchte gerne mittels Makro die gleichen Werte in Spalte A zu einem Wert zusammenfassen und gleichzeitig die dazu gehörige Menge in Spalte B summieren.

Kundenmaterialnr. Auf.Menge
1122 1.000
1122 1.960
1122 1.000
1122 4.000
7265 1.000
7265 1.000
7265 2.000
7265 3.000
10003 1.000
10003 2.000
17720 5.000
17720 5.000
17720 5.000
17720 5.000
17720 5.000
17720 5.000
22385 1.700
22385 1.700
22385 0.850
22385 3.400
123830 2.000
126031 20.000
126031 10.000

Kann mir jemand weiterhelfen wie ich das hinkriege?

Danke und Gruss
Reto

  

Betrifft: AW: Zusammenfassen von: Beverly
Geschrieben am: 28.08.2014 11:34:54

Hi Reto,

Sub Zusammenfassen()
   Dim lngZeile As Long
   For lngZeile = 24 To 2 Step -1
      If Cells(lngZeile - 1, 1) = Cells(lngZeile, 1) Then
         Cells(lngZeile - 1, 2) = Cells(lngZeile - 1, 2) + Cells(lngZeile, 2)
         Cells(lngZeile, 2).ClearContents
      End If
   Next lngZeile
   Columns(2).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

GrußformelBeverly's Excel - Inn


 

Beiträge aus den Excel-Beispielen zum Thema "Zusammenfassen"