Danke im Vorraus!
Sub Ranking()
Dim z As Range, i As Long
i = 1
For Each z In Selection
If WorksheetFunction.Rank(z.Value, Selection, 0) <= 16 Then
Cells(i, 3).Value = z.Address
i = i + 1
End If
Next z
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen