Ich habe den folgenden Code, der 50 zufällige farbcodierte Zahlen zurückgibt:

Sub RandomNumberColor()
  Dim Numbers, i As Integer
  Dim MyRange As Range

  Set MyRange = Worksheets("Rnd").Range("A1:A50")

  For i = 1 To MyRange.Rows.Count
    Numbers = Int((10 - 1 + 1) * Rnd + 1)
    Worksheets("Rnd").Cells(i, 1) = Numbers
    Worksheets("Rnd").Cells(i, 1).Interior.ColorIndex = Worksheets("Rnd").Cells(i, 1).Value
  Next i

End Sub

Ich versuche, einen Weg zu finden, um alle eindeutigen Werte in dieser Spalte (A) zu finden, und gebe sie in Spalte (B) zurück. Aus irgendeinem Grund habe ich Probleme, das herauszufinden, jede Hilfe wäre sehr dankbar!