Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Werte suchen, eintragen und löschen

Gruppe

Suchen

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.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

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