Liegt es am Array das er de Zahlen immer doppelt aufruft, oder an der Loop schleife.
oder oder? (Im Zehnerblock sind die zahlen immer doppelt!!!)
Sub zufallszahlenMitAuswahl()
Dim zahl(10000) As Integer
Dim zahlneu As Integer
Dim anzahl, abzahl
Dim i, n, z
'****** inputbox
z = 11 'InputBox("Wieviele Zufallszahlen sollen ermittelt werden?") z = 1 somit 11 mal nur _
durchlaufen
abzahl = 40 'InputBox("Ab welcher Zahl?")
anzahl = 50 'InputBox("bis welcher zahlenreihe?")
'endeIputbox
'Zufallszahl 1 bis anzahl ermitteln// über input oder ohne
For i = 1 To anzahl
If i = z Then
Exit Sub
Else
zahl(i) = Int((anzahl * Rnd) + 1)
zahlneu = zahl(i)
'* fehler?
Do While zahl(i)