Microsoft Excel

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