Hallo Rob!
mit diesem VB Makro habe ich es hinbekommen, nachzulesen:
Microsoft
Sub Find_Matches()
Dim CompareRange As Variant, x As Variant, y As Variant
' Set CompareRange equal to the range to which you will
' compare the selection.
Set CompareRange = Range("C1:C5")
' NOTE: If the compare range is located on another workbook
' or worksheet, use the following syntax.
' Set CompareRange = Workbooks("Book2"). _
' Worksheets("Sheet2").Range("C1:C5")
'
' Loop through each cell in the selection and compare it to
' each cell in CompareRange.
For Each x In Selection
For Each y In CompareRange
If x = y Then x.Offset(0, 1) = x
Next y
Next x
End Sub
Das Beispiel dazu ist im obigen Link zu finden.
Beim Testen ist es mir mit der Formel:
=IF(ISERROR(MATCH(A1,$C$1:$C$5,0)),"",A1)
jedoch nicht gelungen
Zumal ich mich mit VB noch nicht auskenne, müßte die Formel an Deine Anforderungen (Spalten etc.) angepasst werden.
Wie es mit dem Makro gemacht wird ist beschrieben.
Die Spalte A1 bis A5 markieren und dann Makro ausführen, dann werden die gleichen Zellen von Spalte A und C in Spalte B aufgeführt.
mfg
Paul1