Option Explicit
Sub Zahlen()
Dim Arr, Arr2, Neu, Weg As Integer, i As Integer, LR As Integer
Arr = Array(1, 3, 5, 7, "9|", "9#", 4)
Weg = Int(Rnd * 3)
Arr = Filter(Arr, Arr(Weg), False)
Do
Neu = ""
Arr2 = Arr
For i = 1 To 6
Weg = Int(Rnd * (UBound(Arr2) + 1))
Neu = Neu & "," & Arr2(Weg)
Arr2 = Filter(Arr2, Arr2(Weg), False)
Next
Neu = Replace(Neu, "|", "")
Neu = Replace(Neu, "#", "")
Loop Until InStr(Neu, "9,9") = 0 And Len(Neu) - Len(Replace(Neu, "9", "")) = 2
Neu = Mid(Neu, 2)
LR = Cells(Rows.Count, "A").End(xlUp).Row
Cells(LR + 1, 1) = Neu
End Sub