Hi Ron,

versuche es mal mit ZÄHLENWENN()

Bis später,
Karin

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