Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Gleiche Zeilen addieren

Gleiche Zeilen addieren
26.09.2013 14:30:10
Steffen
Hallo zusammen,
brauch etwas Hilfe:
Ich möchte innerhalb einer Tabelle jede Zeile auf doppelte Werte prüfen:
Wenn in Zeile 1 Spalten A-D = Zeile 2 Spalten A-D; dann sollen die Werte in Spalte E addiert werden und eine Linie gelöscht werden usw.

Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Gleiche Zeilen addieren
26.09.2013 14:52:16
ChrisL
Hi Steffen
Sub t()
Dim iZeile As Long, iiZeile As Long, iSpalte As Byte
Dim bMatch As Boolean
For iZeile = Range("A65536").End(xlUp).Row To 2 Step -1
For iiZeile = iZeile - 1 To 1 Step -1
bMatch = True
For iSpalte = 1 To 4
If Cells(iZeile, iSpalte)  Cells(iiZeile, iSpalte) Then
bMatch = False
Exit For
End If
Next iSpalte
If bMatch Then
Cells(iiZeile, 5) = Cells(iiZeile, 5) + Cells(iZeile, 5)
Rows(iZeile).EntireRow.Delete
End If
Next iiZeile
Next iZeile
End Sub

cu
Chris
Anzeige

Forumthreads zu verwandten Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige