Zufallszahlen in Spalten A bis F bis Ende Tab

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

... das hatte ich schon geändert + Beep:

Private Declare Function Beep Lib "kernel32" (ByVal Fq As Long, ByVal Tm As Long) As Long
Sub ZufallszahlenErzeugen()
Beep 1000, 500
Dim Bereich As Range
Dim zelle As Range
Application.ScreenUpdating = False
Set Bereich = Range("A:F")
For Each zelle In Bereich
zelle.Value = Int(Rnd() * 49) + 1
Next zelle
Application.ScreenUpdating = True
Beep 1000, 500
End Sub

Wie du siehst, geht es bis Ende der Tabelle und dauert 5 Minuten und ist ok.
Frage: wie kann ich nun alle Zeilen aufsteigend sortieren (und alle Spalten) bis Ende Tabellenblatt?
Ich bekomme es einfach nicht hin! Wäre schön, wenn du mir da mit VBA helfen kannst.
Anbei Testdatei: https://www.herber.de/bbs/user/104733.xlsm
Ich suche dann auch noch eine VBA Lösung, dass ich die häufigste Kombination der 6er Zahlen angezeigt bekomme.
Wäre toll, wenn ich schonmal eine VBA Sortierung hätte.
Gruß, Dieter(Drummer)

Sub ZufallszahlenErzeugen() Beep 1000, 500 Dim Bereich As Range Dim zelle As Range Columns("A:F").ClearContents 'löschen alte Zufallszahlen A:F Application.ScreenUpdating = False Set Bereich = Range("A:F") For Each zelle In Bereich zelle.Value = Int(Rnd() * 49) + 1 Next zelle Application.ScreenUpdating = True Beep 1000, 500 End Sub

Hallo Dieter,
... hatte gerade mal Die Zahlen mit dem Makro von snb gefüllt und anschließend in A:F die Formel
=ZUFALLSBEREICH(1;49) wirken lassen. Hab nicht gemessen, aber die Formellösung hält da mE zumindest locker mit.
Interessant wird es ja erst bei der Auswertung. Die gemäß Deiner Aufgabe 3) zu ermittelten sechs am meisten vorkommenden Zahlen, können auch mit einer Formel ausgewertet werden.
Aber da geht es zeitlich schon ans "Eingemachte". Für nur 100000 (die restlichen hatte ich für den Test wieder gelöscht) Datensätze hält es sich noch in Grenzen (unter 5 sec).
Meine momentane Formel dafür:
=REST(AGGREGAT(14;6;ZÄHLENWENN(A:F;ZEILE(A$1:A$49))+ZEILE(A$1:A$49)%;ZEILE(A1));1)/1%
und diese 5 Zeilen nach unten ziehend kopieren.
Teste mal für schrittweise (z.B. 50.000, 100.000, 250.000 ...) mehr Datensätze.
Gruß Werner
.. , - ...

Sub M_snb() ReDim sp(1 To 6, 1 To 2) Range("A:F").Name = "snb_001" [snb_001] = "=int(49*rand())+1" sn = [frequency(snb_001,row(1:50))] For j = 1 To 6 sp(j, 1) = Application.Match(Application.Large(sn, j), sn, 0) sp(j, 2) = Application.Large(sn, j) Next Cells(1, 10).Resize(UBound(sp), UBound(sp, 2)) = sp End Sub

Beliebteste Forumthreads (12 Monate)

Zufallszahlen in Spalten A bis F bis Ende Tab

25
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

332 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zufallszahlen in Spalten A bis F bis Ende Tab

25 Beiträge zum Forumthread Beiträge zu diesem Forumthread

332 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

25
Beiträge zum Forumthread

Beiträge zu diesem Forumthread