Wie generiert man Lottoschein-Zahlen in Excel?

Diese Methode führt Sie durch die Anwendung mehrerer Excel-Funktionen zur Generierung von Lottoschein-Zahlen. Und so können Sie vorgehen:

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

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

(1) Geben Sie in Zelle A2 die Formel =ZUFALLSZAHL()ein, und ziehen Sie dann den Ausfüllknauf bis zum Bereich A2:A50.
(2) Geben Sie in Zelle B2 die Formel =RANG($A2;$A$2:$A$50)+ZÄHLENWENN(B$1:B1;B1)-1ein, und ziehen Sie dann den Ausfüllknauf bis zum Bereich B2:B50. (In der Formel ist A2 die Zufallszahl links neben 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 über der aktuellen Zelle).
(3) Geben Sie im Bereich C2:C50 Sequenznummern von 1 bis 49 ein.

Dann erhalten Sie eine Tabelle, wie im linken Screenshot gezeigt:

 

Formel zu kompliziert, um sie sich zu merken? Speichern Sie die Formel als AutoText-Eintrag, um sie in Zukunft mit nur einem Klick wiederzuverwenden! Weiterlesen…     Kostenlose Testversion

3. Suchen Sie einen leeren Bereich, und geben Sie die Sequenznummern horizontal in einer Zeile ein, wie im folgenden Screenshot gezeigt:

4. Geben Sie unter der ersten Sequenznummer 1 die Formel =SVERWEIS(G1;$B$1:$C$50;2;FALSCH) ein, und ziehen Sie dann den Ausfüllknauf bis zum gewünschten Bereich.

Hinweis: In dieser Formel ist G1 die Zelle mit der ersten Sequenznummer 1, $B$1:$C$50 sind die Spalten Eindeutiger Rang und Ballnummer, 2 bedeutet, Werte in der zweiten Spalte des Bereichs $B$1:$C$50 zu finden.

Dann erhalten Sie die Lottoschein-Zahlen, wie im folgenden Screenshot gezeigt:

5. Dieser Schritt ist optional. Um zu verhindern, dass sich die Lottoschein-Zahlen automatisch ändern, wenn das aktuelle Arbeitsblatt aktualisiert wird, können Sie auf Formel > Berechnungsoptionen > Manuell.

Wenn Sie Kutools für Excel installiert haben, kann dessen Funktion „Zufällige Daten einfügen“ Ihnen helfen, Lottoschein-Zahlen in Excel auf einmal zu generieren.

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

2. Nun erscheint das Dialogfeld „Zufällige Daten einfügen“. Gehen Sie zur Registerkarte Ganzzahl und geben Sie 1 in Von Box, geben Sie 49 in Bis Box, aktivieren Sie die Option Eindeutige Werte und klicken Sie auf die Schaltfläche OK Jetzt sehen Sie, dass 6 eindeutige Lottoschein-Zahlen generiert und sofort in den ausgewählten Zellen angezeigt werden.

Diese Methode führt Sie durch die Anwendung eines VBA-Makros zur Generierung von Lottoschein-Zahlen in Excel. Gehen Sie 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 ein:

VBA: Lottoschein-Nummern-Generator 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. Geben Sie nun im aufgehenden Dialogfeld eine Zelle an, in der die Lottoschein-Zahlen ausgegeben werden sollen, und klicken Sie auf die Schaltfläche OK Schaltfläche.

Dann sehen Sie, dass 6 eindeutige Lottoschein-Zahlen generiert und in den angegebenen Zellen angezeigt werden.

Zufällige Auswahl von Zellen basierend auf Kriterien in Excel

Zufälliges Hinzufügen von Hintergrund-/Füllfarbe für Zellen in Excel