test 1234

[Excel Community]

Sub procRandomNumbers()

  Const INT_MAX_ZAHL = 1000

  Randomize 'Zufallsgenerator initialisieren

  For Each objCell In Selection

    'Rnd erzeugt Zufallszahl >= 0 und < 1

    objCell.Value = Int((INT_MAX_ZAHL * Rnd))

  Next

End Sub