Clever-Excel-Forum

Hallo,

Ich versuche gerade mit einem Makro, die fünf grössten Zahlen in meiner Datei zu finden, jedoch kommen mit dem Makro Duplikate in meinem Resultat vor, die ich gerne vermeiden würde.

Beispielhaft: Wenn ich 3 zahlen hab (1,1,2) würde mir das Makro als Secondscore 1 als Output geben und nicht 2, wie kann ich das Problem umgehen?

Code:
public Sub ColorMax()

Dim maxscore As Double

Dim secondscore As Double

Dim thirdscore As Double

Dim fourthscore As Double

Dim fifthscore As Double

Dim MyRange As Range

Set MyRange = Range("A1").CurrentRegion

maxscore = WorksheetFunction.Max(MyRange)

secondscore = WorksheetFunction.Large(MyRange, 2)

thirdscore = WorksheetFunction.Large(MyRange, 3)

fourthscore = WorksheetFunction.Large(MyRange, 4)

fifthscore = WorksheetFunction.Large(MyRange, 5)

Cells(2, 5).Value = maxscore

Cells(2, 5).Offset(1, 0).Value = secondscore

Cells(2, 5).Offset(2, 0).Value = thirdscore

Cells(2, 5).Offset(3, 0).Value = fourthscore

Cells(2, 5).Offset(4, 0).Value = fifthscore

End Sub

Liebe Grüße.

Code:
Sub M_snb()

  sn = Columns(1).SpecialCells(2, 1)

  With CreateObject("scripting.dictionary")

    For Each it In sn

      x0 = .Item(it)

    Next

    For j = 1 To 5

      Cells(j + 1, 8) = Application.Large(.keys, j)

    Next

  End With

End Sub

SirofFinance

snb