Zufallsbingo mit Texten erstellen

Kevin · 2023-01-09T13:51:28+00:00

Guten Tag alle zusammen. Ich habe mir zur Aufgabe gemacht ein kleines Bingo in Excel zu erstellen. Leider sind meine Kenntnisse derart beschränkt, dass ich keine Ahnung habe, wie ich anfangen soll das Folgende zu realisieren: - Einfaches Bingo 5x5 (mittleres Feld ist frei) - Zufälliges Füllen der Bingozellen mit Sätzen (Die Sätze stehen vorbereitet auf einem weiteren Sheet, könnten mehr als 24 sein, falls das wichtig ist...) - Satzgröße maximal 6 Wörter - Durch einen Druck auf F9 oder eines Buttons das Bingo neu erstellen. Vielen Dank für eure Hilfe!

Moin,
die Idee von Rudi, die Zelle D4 für den Doppelklick zu nutzen, finde ich gut.
Nur: wo ist die Zufallsverteilung? (oder habe ich was übersehen)


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim C As New Collection
Dim Z As Range
Dim i
'wird gelöst, wenn in D4 doppelgeklickt wird (dort "Hier doppelklicken" eintragen)
If Target.Address  "$D$4" Then Exit Sub
'Aufbau einer eindeutige Liste
On Error Resume Next
With Worksheets("Worterliste") ' "$D$4" Then 'nicht für die mittlere  Zelle
i = Int(Rnd() * C.Count) + 1
Z.Value = C(i)
C.Remove (i) 'Element wird aus der Auflistung entfernt, um nicht eine zweite mal herausgegeben werden
End If
Next
Cancel = True 'für D4 keine Weiterverarbeitung der Doppelklick
Set C = Nothing
End Sub

VG
Yal

Hi
hier noch eine andere VBA-Variante.
die Zufallsreihenfolge ohne wiederholungen wird dadurch erzeugt, dass die Texte in ein Array eingelesen werden und dort die Positionen zufällig getauscht werden.
dann man die Liste von oben durchgehen, soweit wie benötigt und die Werte einfach von oben lesen:
die Größe des Bingofeldes legst du mit der Dimensionierung des Arrays Bingo fest. der Rest des Codes orientiert sich daran.
Lückenfelder kannst du im Select-Case einfach definieren, es können auch mehrere sein.
Die Textliste muss mindestens so viele Einträge haben wie es zu füllende Bingofelder gibt.


Sub Bingo()
Dim Sätze
Dim Bingo(1 To 5, 1 To 6)
Dim txt, x As Long, y As Long, z As Long, i As Long
'--- Sätze einlesen
With Sheets("Tabelle1").Range("A1") 'erste Zelle mit den Sätzen
Sätze = Range(.Cells, .End(xlDown)).Value
End With
'--- Zufallsreihenfolge erstellen
For i = 1 To UBound(Sätze, 1)
x = WorksheetFunction.RandBetween(1, UBound(Sätze, 1))
txt = Sätze(i, 1)
Sätze(i, 1) = Sätze(x, 1)
Sätze(x, 1) = txt
Next
'--- Bingofeld erzeugen
For i = 1 To UBound(Bingo, 1) * UBound(Bingo, 2)
Select Case i
Case 13 'Lückenfeld
Case Else
x = (i - 1) \ UBound(Bingo, 2) + 1
y = (i - 1) Mod UBound(Bingo, 2) + 1
z = z + 1
Bingo(x, y) = Sätze(z, 1)
End Select
Next
ActiveCell.Resize(UBound(Bingo, 1), UBound(Bingo, 2)) = Bingo
End Sub

Gruß Daniel

	A	B	C	D	E	F	G
1
2		61	46	23	10	34
3		41	22	53	52	69
4		21	16		17	1
5		6	55	28	4	54
6		50	12	68	19	63
7

Zelle	Formel
B2	=SPALTENUMBRUCH(INDEX(SORTIERENNACH(SEQUENZ(75);ZUFALLSMATRIX(75));SEQUENZ(25));5)

Zufallsbingo mit Texten erstellen

Forumthread: Zufallsbingo mit Texten erstellen

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial