VBA summieren und Zeile löschen
04.02.2022 14:21:36
Frank
ich habe eine Liste (mehr als 1000 Zeilen) inkl. Duplikaten wobei Einträge gedoppelt sind. Ich möchte nun, dass bei Übereinstimmung der Einträge in den Spalten A und B die betreffenden Werte in Spalte E summiert werden. Im Anschluss soll die doppelte Zeile gelöscht werden.
(Beispieldatei: https://www.herber.de/bbs/user/150881.xlsx)
Das ich die Liste von unten an durchsuchen muss, habe ich bereits gelernt. Jedoch scheint es noch weitere Probleme mit meinem Code zu geben.
Dim i As Long
Dim letzteZeile As Long
letzteZeile = 6
For i = letzteZeile To 2 Step -1
If Tabelle2.Cells(i, 2) = Tabelle2.Cells(i - 1, 2) Then
Tabelle2.Cells(i - 1, 5) = Tabelle2.Cells(i - 1, 5) + Tabelle2.Cells(i, 5)
Tabelle2.Rows(i).Delete
End If
Next
End Sub
Vielen Dank für die Hilfe!