Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Wenn Wert nicht gefunden wird, eintragen

Gruppe

Suchen

Problem

Jeder Wert in Spalte A soll mit den Werten in Spalte B verglichen werden. Wird der jeweilige Wert nicht gefunden, ist er in Spalte C einzutragen.

Lösung
Den nachstehenden Code in ein Standardmodul eingeben, einer Schaltfläche zuweisen und starten.

StandardModule: Modul1

Sub VergleichenKopieren()
   Dim v As Variant
   Dim lRowL As Long, lRow As Long
   lRowL = Cells(Rows.Count, 1).End(xlUp).Row
   For lRow = 1 To lRowL
      v = Application.Match(Cells(lRow, 1).Value, Columns(2), 0)
      If IsError(v) Then
         Cells(lRow, 3).Value = Cells(lRow, 1).Value
      End If
   Next lRow
End Sub