Wie generiert man Lotteriezahlen in Excel?

Diese Methode führt Sie Schritt für Schritt durch die Anwendung mehrerer Excel-Funktionen, um eigene Lotteriezahlen zu generieren. Gehen Sie dazu wie folgt vor:

1. Geben Sie in einem leeren Arbeitsblatt in den Bereich A1:C1 Spaltenüberschriften wie im folgenden Screenshot gezeigt ein:

2. Geben Sie Formeln in Spalte A, Spalte B und Spalte C ein:

(1) Geben Sie in Zelle A2 die Formel =RAND() ein und ziehen Sie anschließend den Ausfüllknauf auf den Bereich A2:A50.
(2) Geben Sie in Zelle B2 die Formel =RANK($A2,$A$2:$A$50)+COUNTIF(B$1:B1,B1)-1 ein und ziehen Sie anschließend den Ausfüllknauf auf den Bereich B2:B50. (In der Formel ist A2 die Zufallszahl links der aktuellen Zelle, $A$2:$A$50 sind alle Zufallszahlen, die wir mit der ersten Formel erhalten haben, B$1 ist die erste Zelle in Spalte B und B1 ist die Zelle oberhalb der aktuellen Zelle.)
(3) Geben Sie im Bereich C2:C50 aufeinanderfolgende Zahlen von 1 bis 49 ein.

Anschließend erhalten Sie eine Tabelle wie im linken Screenshot gezeigt:

 

Ist die Formel zu kompliziert, um sie sich zu merken? Speichern Sie die Formel als Autotext-Eintrag, um sie künftig mit nur einem Klick wiederzuverwenden! Weitere Informationen…     Kostenlose Testversion

3. Wählen Sie einen leeren Bereich aus und geben Sie aufeinanderfolgende Zahlen horizontal in einer Zeile ein – wie im folgenden Screenshot gezeigt:

4. Geben Sie unterhalb der ersten Sequenznummer (beginnend mit 1) die Formel =VLOOKUP(G1,$B$1:$C$50,2,FALSE) ein und ziehen Sie anschließend den Ausfüllknauf auf den gewünschten Bereich.

Hinweis: In dieser Formel ist G1 die Zelle mit der ersten Sequenznummer (beginnend mit 1), $B$1:$C$50 umfasst die Spalten „Eindeutiger Rang“ und „Kugelnummer“, und die Zahl 2 gibt an, dass Werte aus der zweiten Spalte des Bereichs $B$1:$C$50 abgerufen werden sollen.

Anschließend erhalten Sie die Lotteriezahlen wie im folgenden Screenshot gezeigt:

5. Dies ist optional. Um zu verhindern, dass sich die Lotteriezahlen automatisch ändern, wenn das aktuelle Arbeitsblatt aktualisiert wird, klicken Sie auf Formel > Berechnungsoptionen > Manuell.

Wenn Kutools für Excel installiert ist, hilft Ihnen das Hilfsprogramm Zufällige Daten einfügen dabei, sofort Lotteriezahlen in Excel zu generieren.

1. Wählen Sie sechs benachbarte Zellen aus, z. B. A1:F1, und klicken Sie anschließend auf Kutools > Einfügen > Zufällige Daten einfügen.

2. Das Dialogfeld „Zufällige Daten einfügen“ wird nun geöffnet. Wechseln Sie zur Registerkarte Ganze Zahl, geben Sie 1 in das Feld Von ein, tragen Sie 49 in das Feld Bis ein, aktivieren Sie die Option Eindeutige Werte und klicken Sie auf die Schaltfläche OK. Sofort erscheinen sechs eindeutige Lotteriezahlen in den ausgewählten Zellen.

Diese Methode führt Sie Schritt für Schritt durch die Anwendung eines VBA-Makros zur Erzeugung von Lotteriezahlen in Excel. Gehen Sie dazu wie folgt vor:

1. Drücken Sie die Tasten Alt + F11, um das Fenster „Microsoft Visual Basic for Applications“ zu öffnen.

2. Klicken Sie auf Einfügen > Modul, um ein neues Modulfenster zu öffnen, und fügen Sie den folgenden VBA-Code darin ein:

VBA: Lotteriezahlengenerator in Excel

Sub LotteyCode()
Dim Rng As Range
Dim WorkRng As Range
Dim xNumbers(49) As Integer
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Out put to (single cell):", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.Range("A1")
For xIndex = 1 To 49
xNumbers(xIndex) = xIndex
Next
For xIndex = 1 To 6
xNum = 1 + Application.Round(Rnd * (49 - xIndex), 0)
WorkRng.Offset(0, xIndex - 1).Value = xNumbers(xNum)
xNumbers(xNum) = xNumbers(50 - xIndex)
Next
End Sub

3. Drücken Sie die Taste F5 oder klicken Sie auf die Schaltfläche Ausführen, um dieses VBA-Makro auszuführen.

4. Es öffnet sich nun ein Dialogfeld. Geben Sie eine Zelle an, in der die Lotteriezahlen ausgegeben werden sollen, und klicken Sie auf die Schaltfläche OK.

Anschließend werden 6 eindeutige Lotteriezahlen generiert und in den angegebenen Zellen angezeigt.

Zellen nach Kriterien zufällig in Excel auswählen

Hintergrund/Füllfarbe für Zellen in Excel zufällig hinzufügen