Wie erhalte ich die Position eines Wertes der mehrfach vorkommt in der Tabelle

Question

Vergleich FKT findet nur die Position des ersten..

Answer 1

Hallo,

folgender Code sucht im Bereich A1:I25 nach den Wert, der sich in J1 befindet und listet dessen Positionen, ab J2 abwärts, auf.

Option Explicit

Sub positionen()
Dim rngC As Range
For Each rngC In Range("A1:I25")
If rngC.Value = Range("J1").Value Then
Range("J" & Cells(Rows.Count, 10).End(xlUp).Row + 1) = rngC.Address
End If
Next
End Sub

Gruß
Rainer