Gruppe
Allgemein
Problem
Spalte A soll mit Spalte B verglichen und die in beiden Spalten vorkommenden Elemente sollen in Spalte C gelistet werden.
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