Genau Anno. Aber dann läuft es weiter und eine neue Zahl wird vorne gebildet und die letzte fällt weg. Das stimmt ja dann so nicht ganz bei dir.
Spoiler anzeigen
[autoit]
#include <Array.au3>
[/autoit] [autoit][/autoit] [autoit]Global $Anzahl = 10 ; Anzahl der Zahlen
Global $Random[$Anzahl + 1], $rdmnall = ""
Global $Zahlen = "1:4,2:5,3:6,7:8"
For $i = 1 To 4
Do
$rdmn = Random(1, 8, 1)
Until Not StringInStr($Zahlen, StringRight($Random, 1) & ":" & $rdmn) And Not StringInStr($Random[1], $rdmn)
$Random[1] &= $rdmn
Next
For $j = 2 To $Anzahl
Do
$rdmn = Random(1, 8, 1)
Until Not StringInStr($Zahlen, $rdmn & ":" & StringLeft($Random[$j - 1], 1)) And Not StringInStr(StringTrimRight($Random[$j - 1], 1), $rdmn)
$Random[$j] = $rdmn & StringTrimRight($Random[$j - 1], 1)
Next
_ArrayDisplay($Random)
[/autoit]