Sub ZufallswerteZuordnen()
Dim i_LetzteZeile As Integer
Dim i_AktuelleZeile As Integer
Dim i_Zufallszahl As Integer
Dim b_schonVorhanden As Boolean
Dim i_i As Integer
Dim i_j As Integer
i_AktuelleZeile = 1
i_LetzteZeile = ActiveSheet.Range("A65536").End(xlUp).Row
ActiveSheet.Columns("A:A").Insert Shift:=xlToRight
For i_i = 1 To i_LetzteZeile
i_AktuelleZeile = i_i
'Zufallswert erzeugen (Zahl von 1 bis Anzahl beschriebene Zeilen)
i_Zufallszahl = Round(Rnd() * i_LetzteZeile)
' Prüfen ob Zufallszahl doppelt
For i_j = 1 To i_AktuelleZeile
If Cells(i_j, 1).Value = i_Zufallszahl Then
b_schonVorhanden = True
i_j = i_AktuelleZeile
Else
b_schonVorhanden = False
End If
Next
' Wenn doppelt, neu berechnen, sonst Wert in Zelle schreiben
If b_schonVorhanden = True Then
i_i = i_i - 1
Else
Cells(i_i, 1).Value = i_Zufallszahl
End If
Next
End Sub