HERBERS Excel-Forum - die Beispiele

Thema: Lottozahlen-Generator

Home

Gruppe

Allgemein

Problem

Wie kann ich Lottozahlen nach dem Zufallsprinzip ermitteln?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain

Sub Lotto()
   Dim wks As Worksheet
   Dim rng As Range
   Dim iLotto As Integer, iCount As Integer
   Randomize
   Set wks = Worksheets("Nummern")
   For iLotto = 1 To 49
      wks.Cells(iLotto, 1).Value = iLotto
   Next iLotto
   For Each rng In Range("A1:G7").Cells
      iCount = WorksheetFunction.CountA(wks.Columns(1))
      iLotto = Int((iCount * Rnd) + 1)
      rng.Value = wks.Cells(iLotto, 1).Value
      wks.Rows(iLotto).Delete
   Next rng
End Sub