Hilfe! Mathematisches Genie gesucht. Eilt.?

Question

in einer Excel-Tabelle sind in einer Reihe die Zahlen 1-100 durcheinander geschrieben. Wie schafft man es, 30 neue Reihen innerhalb 1 h drunterzusetzen mit immer neu gemischten Zahlen ohne sich zu wiederholen oder fortlaufende Zahlen zu verwenden?

Answer 1

Sub Makro1()
For y = 1 To 30
For x = 1 To 100

wert:
zahl = (Int(Rnd(x) * 100) + 1)
Worksheets(1).Cells(y, x).Value = zahl

Test:
For n = 1 To x - 1
If zahl = Worksheets(1).Cells(y, n).Value Then GoTo wert
Next n

Next x
Next y
End Sub


Ich hoffe du kannst das Makro einfügen und starten.
Die möglichkeit von 2 gleichen Zeilen habe ich nicht ausgeschlossen, ist aber auch sehr unwahrscheinlich.

=ABRUNDEN(ZUFALLSZAHL()*100;0)
Die Formel oben schließt ja weder Duplikate aus , noch gewährleistet sie das jede Zahl 1-100 vorhanden ist.
Und die 0 wurde auch nicht ausgeschlossen.

Answer 2

Hi, wenn du zukünftig weitere Hilfen in Excel brauchst, hab ich Dir mal einen guten Link reingestellt!

Answer 3

Die Formel lautet:

=ABRUNDEN(ZUFALLSZAHL()*100;0)

Runterkopieren. Dauert etwa 2 Minuten

@kling: Die Vermeidung von Duplikaten sowie das Vorhandensein aller Zahlen ist in der "Ausschreibung" nicht gefordert