Excel und VBA: Formeln, Programmierung, Lösungen
Die Excel/VBA-Beispiele
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.
Lösung
Geben Sie den Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
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