Excel: Plätze mittels Zufallszahlen zuweisen

[little21]

hy!

ich hoffe der code ist für dich das richtige bzw. wie du es wolltest! er wird ausgeführt, wenn du den ordner aktivierst, in dem du den code eingefügt hast!
ev. mußt du den ordnernamen ändern!

Private Sub Worksheet_Activate()

' Definieren der Variablen
Dim a(0 To 5) As Double
i = 0


Do While i < 6
'int für eine Ganzzahl
'int((obergrenze - untergrenze +1) * rnd + untergrenze)
a(i) = Int((100 - 1 + 1) * Rnd + 1)
x = 0

'überprüfen ob die zahl schon vorkommt
Do While x < i
If a(i) = a(x) Then i = i - 1
x = x + 1
Loop

i = i + 1
Loop

i = 0
'werte in die zellen schreiben
Do While i < 6
Worksheets("Tabelle1").Cells(i + 2, 4).Value = a(i)
i = i + 1
Loop

End Sub


gutes gelingen

mfg
little