Zufallsbingo mit Texten erstellen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Address = "$D$4" Then With Range("B2:F6") .FormulaR1C1 = _ "=INDEX(Tabelle1!C1:C1,MATCH((ROW(R[-1]C)-1)*5+COLUMN(R[-1]C[-1]),Tabelle1!C3:C3,))" .Cells(3, 3) = "" .Value = .Value End With Cancel = True End If End Sub

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

Hi
Im Prinzip so:
1. erstellen in den Zellen A1:E5 ein Bingoblatt und trage in die Zellen die zahlen 1-25 ein. Die Mitte lässt du leer.
2. schreibe die Sätze in ein Tabellenblatt "Sätze" in Spalte A. In Spalte B kommt die Formel =Zufallszahl() und in Spalte C die Formel: =Rang(B1;B:B)
3. erstellen jetzt dein Bingoblatt mit dieser Formel für die obere linke Zelle und kopieren diese in die restlichen Zellen:


=Wenn(A1="";"";Index(Sätze!$A:$A;Vergleich(A1;Sätze!$C:$C;0))

Wenn du mehrere Bingoblätter zeitgleich erstellen willst, musst du für jedes im Blatt Sätze ein Spaltenpaar anlegen und die Formeln aus B und C verwenden und in der Formel auf die jeweilige Spalte verweisen.
Gruß Daniel

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

Beliebteste Forumthreads (12 Monate)

	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

Zufallsbingo mit Texten erstellen

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

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

Zufallsbingo mit Texten erstellen

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread