Thema
Lottozahlen generieren und sortieren
Gruppe
Zufall
Problem
In den Bereich A1:E5 sollen nach dem Zufallsprinzip Lottozahlen generiert werden. Die Sortierung erfolgt über Formeln in Spalte B.
StandardModule: basMain
Sub Zufall()
Dim rng As Range, rngAll As Range
Dim iRandomize As Integer
Set rngAll = Range("A2:A9")
Randomize
rngAll.ClearContents
For Each rng In rngAll.Cells
iRandomize = Int((49 * Rnd) + 1)
Do Until WorksheetFunction.CountIf(rngAll, iRandomize) = 0
iRandomize = Int((49 * Rnd) + 1)
Loop
rng.Value = iRandomize
Next rng
End Sub