Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Spalte A mit B vergleichen und Doppel in C eintragen

Gruppe

Vergleich

Problem

Spalte A soll mit Spalte B verglichen und die in beiden Spalten vorkommenden Elemente sollen in Spalte C gelistet werden.

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

StandardModule: Modul1

Sub Vergleichen()
   Dim var As Variant
   Dim iRow As Integer, iRowT As Integer
   iRow = 1
   Do Until IsEmpty(Cells(iRow, 1))
      var = Application.Match(Cells(iRow, 1), Columns(2), 0)
      If Not IsError(var) Then
         iRowT = iRowT + 1
         Cells(iRowT, 3) = Cells(iRow, 1)
      End If
      iRow = iRow + 1
   Loop
End Sub