Gruppe
Allgemein
Problem
Der Wert in der aktiven Zelle in Spalte A wird in den übrigen Zellen der Spalte gesucht. Wird er gefunden, wird der Wert aus Spalte C der Fundstelle dem Wert der Zelle in der aktiven Zeile in Spalte C hinzugefügt. Die Fundzeile wird gelöscht.
StandardModule: basMain
Sub PruefenLoeschen()
Dim rng As Range
Dim lRow As Long, lRolL As Long
Application.ScreenUpdating = False
Set rng = ActiveCell
lRolL = Cells(Rows.Count, 1).End(xlUp).Row
For lRow = lRolL To rng.Row + 1 Step -1
If Cells(lRow, 1).Value = rng.Value Then
rng.Offset(0, 2).Value = _
rng.Offset(0, 2).Value + Cells(lRow, 3).Value
Rows(lRow).Delete
End If
Next lRow
Application.ScreenUpdating = True
End Sub