VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Spalte A mit B vergleichen und Doppel in C eintragen

Gruppe

Allgemein

Bereich

Vergleich

Thema

Spalte A mit B vergleichen und Doppel in C eintragen

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

    


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