VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Wenn Wert nicht gefunden wird, eintragen

Gruppe

Allgemein

Bereich

Suchen

Thema

Wenn Wert nicht gefunden wird, eintragen

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

    


Beiträge aus dem Excel-Forum zu den Themen Allgemein und Suchen