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